如何在ggplot中添加条件标签样本

我有这个数据框叫mydf。我试图绘制如下所示的这些数据，但我只想标注那些污染超过1.2的样本（而不是所有东西）。我还想在1.2污染边界添加一条水平线。我如何在R中做到这一点？如何在ggplot中添加条件标签样本

mydf <- structure(list(sample.names = structure(c(2L, 3L, 4L, 5L, 6L, 
    1L, 7L, 8L, 9L, 10L), .Label = c("LPH-001-1", "LPH-001-10", "LPH-001-10_AK1", 
    "LPH-001-10_AK2", "LPH-001-10_PD", "LPH-001-10_SCC", "LPH-001-13", 
    "LPH-001-13_AK1", "LPH-001-13_AK2", "LPH-001-13_PD"), class = "factor"), 
     contamination = structure(c(5L, 1L, 4L, 2L, 2L, 4L, 3L, 8L, 
     7L, 6L), .Label = c("0.7", "1.0", "1.1", "1.2", "1.3", "1.4", 
     "1.7", "2.0"), class = "factor")), .Names = c("sample.names", 
    "contamination"), row.names = c(NA, -10L), class = "data.frame") 

cc<- ggplot(mydf, aes(x=sample.names, y=contamination, label= mydf[,"sample.names"])) + geom_point() 

     cc + geom_text()

来源

2016-09-06 MAPK

清理绘图前的数据，为什么数字存储为因子？ – zx8754

我会分别转换sample.names和contamination字符和数字载体，然后做出名的新载体，其具有与contamination <= 1.2样品的占位符。 geom_hline可以添加水平线。

mydf$contamination <- as.numeric(as.character(mydf$contamination)) 
mydf$sample.names <- as.character(mydf$sample.names) 
mydf$sample.names1.2 <- ifelse(mydf$contamination > 1.2, mydf$sample.names, "") 

ggplot(mydf, aes(x=sample.names, y=contamination, label = sample.names1.2)) + 
    geom_point() + 
    geom_text() + 
    geom_hline(yintercept = 1.2)

来源

2016-09-06 08:02:26

如何在ggplot中添加条件标签样本

回答

相关问题