ggplot函数选择多个子集答案

【问题标题】：ggplot function select multiple subsetggplot函数选择多个子集
【发布时间】：2012-12-12 21:02:53
【问题描述】：

我不是 ggplot2 包的专家。我有一个子集选择问题。

这是我生成这种图表的代码...

  g <- ggplot(merged_data,aes_string(x=Order,fill=var.y)) + 
               scale_y_continuous(expand = c(0.05,0)) + 
              xlab(paste("Order","Total number of sequences",sep=" - ")) + 
              ggtitle(main.str) +
              geom_bar(position="fill", 
                       subset = .(Order !=  ""), 
                       width=0.6,hjust =0)+
              geom_text(stat="bin",  
                        subset = .(Order !=  ""), 
                        color="black", hjust=1, vjust = 0.5, size=2,
              aes_string(fill=NULL,x = Order,y = "0", label="..count.."))+
              coord_flip()

对于geom_bar 和geom_text，我选择删除空名称的数据子集

subset = .(eval(parse(text=var.x)) !=  "")

这是一个只有 2 个小节的简单示例。这是一个数据...

Collector<- c("BK","YE_LD","BK","JB","JB",
         "BK","BK","BK","JB","YE_LD")
Order<-c("A","B","B","B","A",
         "B","B","A","B","B")
data <- data.frame(Order,Collector)

现在我想为我的子集添加一个截止值...只显示计数最少的变量。

因此，如果我设置 cutoff = 4 ... 我将只得到底部有 7 个计数的条，顶部有 3 个计数的条不应该出现。

我不知道我该怎么做... 感谢您的帮助。

【问题讨论】：

您能提供一些示例数据吗？
此外，我建议让您的示例更加简洁。许多标题、轴标签和其他主题分散了实际问题的注意力。
您需要更多才能使这个示例成为可重现的示例。 var.y 和 main.str 在哪里？

标签： r subset ggplot2

【解决方案1】：

您可以创建数据子集并在ggplot 中使用这个新对象。以下命令将删除所有少于四个数据点的Order 条件：

subset(data, Order %in% names(which(table(Order) >= 4)))


   Order Collector
2      B     YE_LD
3      B        BK
4      B        JB
6      B        BK
7      B        BK
9      B        JB
10     B     YE_LD

【讨论】：