ggplot2 bubbleplot с данными кластеризации

Question

Я могу сделать участок пузыря, используя ggplot2. теперь я хочу сгруппировать один столбец, а затем построить участок пузырька. Как мне это сделать? Вот что сюжет выглядит следующим образом: изображение выглядеть как этот один

Вот мои фиктивные данные

x=data.frame(
group=c("A","A","B","B","C","C","C","D","D"), 
item=c("apple","pear","apple","peach","orange","cherry","apple","banna","apple"), 
count=c(3,5,5,1,9,7,3,2,4)) 

Вот мои скрипты:

library(ggplot2) 

xf=x$item 
xfu=unique(xf) 
x$item=factor(xf,levels=xfu) 
p<-ggplot(x) 
p + geom_point(aes(x = group, y = item,size= count),las=2,shape=16, 
alpha=0.80) + 
scale_size_continuous(breaks=c(1,2,3,4,5,6,7,8,9), 
labels=c("1","2","3","4","5","6","7","8","9"))+ 
theme(axis.text.x = element_text(angle = 45, hjust = 
1.1,size=11,colour="black",face="bold"), 
axis.text.y = element_text(size=11,colour="black"), 
axis.title.y = element_text(size=12,colour = 
"black",face="bold",vjust=0.12))+ 
labs(x="",y = "Item") 

сейчас Я хочу сделать иерархическую кластеризацию данных элемента, чтобы получить более очевидную картину об этом. Заказ товара не имеет значения. Как я могу это сделать?

Answer 1

Если вы спрашиваете, как вы масштабы пузыри перекрываться, вы должны явно установить size=вне: параметр aes() (как показано ниже). Я добавил метки с вызовом geom_text().

Если вы хотите столбцы группироваться вместе на основе какой-то порядок, хотя, нужно непрерывную переменную заговор против (нужно больше информации, чтобы продемонстрировать)

xf=x$item 
xfu=unique(xf) 
x$item=factor(xf,levels=xfu) 
p<-ggplot(x) 
p + geom_point(aes(x = group, y = item), size=15+x$count*7, las=2,shape=21, fill="white", alpha=0.80) + 
geom_text(aes(x = group, y = item, label=count), fontface="bold", size=7) + 
    theme(axis.text.x = element_text(angle = 45, hjust = 
            1.1,size=11,colour="black",face="bold"), 
     axis.text.y = element_text(size=11,colour="black"), 
     axis.title.y = element_text(size=12,colour = 
             "black",face="bold",vjust=0.12), 
     panel.grid.major = element_line(linetype = "dashed", size=1, color="black"))+ 
    labs(x="",y = "Item")