僅繪制大於給定值的值：ggplot R

Question

在@Nick Criswell的幫助下，我學習了如何創建make plot函數以及如何使用ggplot2和aes_string進行應用 。 GGPLOT aes_string循環頻率圖

我在修改代碼以僅繪制大於給定閾值的值時遇到麻煩。 在使用函數方法之前，我對以下代碼進行了編碼：

p <- ggplot(subset(DAT, al.sum>10), aes(word, al.sum, y=freq)) 

問題：如何修改以下代碼以僅繪制給定閾值上的值？ 也就是說，如果計數大於10，我只希望將每個記錄包含在頻率圖中。從下面的代碼中，對於al.sum，此條件僅將Dot_Matricks包括在頻率圖中。

#set work DIR
setwd("C:/A")

#Data create 
DAT <- read.table(text = "ID  a1.sum  b3.sum  c6.sum  d9.sum
April_Showers   10  5   15  0
              Anita_Job   2   3   1   14
              Candy_Cain  4   7   14  17
              Crystal_Ball    6   8   16  12
              Dot_Matricks    15  9   0    1
              Kay_Largo   4   10  5   13", 
              header = TRUE, stringsAsFactors = FALSE)

 #Plot Data function  
 library(ggplot2)

 make_plots = function(data, column){
 ggplot(data, aes_string(x = "ID", y=column)) +
 geom_bar(stat="identity", fill="blue", color="green") +
 theme(plot.background = element_rect(fill = "white"),
      panel.background = element_rect(fill = "white"),        
      panel.grid.major = element_line(colour = "white",size=0.25),
      panel.grid.minor = element_blank(),
      axis.text.x=element_text(size=10,angle=90, hjust=1, 
                               face="plain", family="serif"),
      axis.text.y=element_text(size=10, hjust=1, face="plain", family="serif"), 
      axis.line.x = element_line(color="black", size = 0.50), 
      axis.line.y = element_line(color="black", size = 0.5))
}

#lapply function 
myplots <- lapply(colnames(DAT[2:ncol(DAT)]), make_plots, data = DAT)

#collect names of each col that end with .sum
n <- names(DAT[grep("*.sum",names(DAT))])

#save each plot as .png
for (i in 1:length(n)){
  print(myplots[i])
ggsave(filename=paste0(i,".png"))
}

Answer 1

這應該可以解決問題：

make_plots = function(data, column,Threshold){

  PltData <- data[data[,column] >Threshold,]

  Plt <- ggplot(PltData, aes_string(x = "ID", y=column)) +
    geom_bar(stat="identity", fill="blue", color="green") +
    theme_bw()+
    theme(
      panel.grid.major = element_line(colour = "white",size=0.25),
      panel.grid.minor = element_blank(),
      axis.text.x=element_text(size=10,angle=-30, hjust=0)
    )
  # Plt
  ggsave(Plt,filename=paste0(column,".png"))
}

lapply(colnames(DAT[2:ncol(DAT)]), make_plots, data = DAT,Threshold=10)

您也可以使用子集功能執行此操作。 如果要將圖返回到R會話，請注釋ggsave行並取消注釋Plt 。