【问题标题】:ggplot2 bubbleplot with clustering data带有聚类数据的ggplot2气泡图
【发布时间】:2013-11-30 08:07:33
【问题描述】:

我可以使用 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")

现在我想对项目数据进行层次聚类,以便获得更明显的模式。项目的顺序并不重要。我该怎么做?

【问题讨论】:

  • 图片链接没有多大帮助,如果您可以更具体地了解您的图表在 data.frame 中应该是什么样子,那么人们会更容易回答
  • 这个问题似乎离题了,因为它更适合stats.stackexchange.com
  • 我认为它属于这里,因为她需要重新编码因子水平以使它们以正确的顺序绘制 - 而不是统计 Q。需要什么顺序不太清楚。

标签: r ggplot2 cluster-analysis bubble-chart


【解决方案1】:

如果您询问如何放大气泡以重叠,您需要明确设置size= outside 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")

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 2014-04-02
    • 2013-04-27
    • 2018-06-13
    • 2023-03-12
    • 2012-01-28
    • 1970-01-01
    • 2017-08-04
    相关资源
    最近更新 更多