循环 ggplot处理字符串，强制引入的 NA

编程问答 2022-05-26

问题描述

我有以下运行代码：

X <-ggplot(t_Tablenorec,aes(x=date,y=as.numeric(as.character(X))))+ geom_line(aes(color=site)) +
  theme_bw()+
  labs( y= "Counts")+
  labs( x= "Date")+
  ggtitle("X") +
  theme(plot.title = element_text(size=10,margin = margin(b=-10)))+
  scale_x_date(date_labels = "%Y",date_breaks = "1 years")+
  scale_color_manual(values=c("#bc5090","#003f5c"))+
  geom_vline(xintercept = as.numeric(as.Date(c("2009-01-01","2010-01-01","2011-01-01","2012-01-01","2013-01-01","2014-01-01","2015-01-01","2016-01-01"))),linetype=3)+
  theme(panel.grid.major.y = element_blank(),panel.grid.minor.y = element_blank(),panel.grid.major.x = element_blank(),panel.grid.minor.x = element_blank())

X

但是当我尝试像这样遍历整个大型数据库时：

for (i in 1:length(head_row_names)){
  gene = as.name(head_row_names[i])
  A <-ggplot(t_Tablenorec,y=as.numeric(as.character(gene)))) + geom_line(aes(color=site)) +
    theme_bw()+
    labs( y= "Counts")+
    labs( x= "Date")+
    ggtitle(gene) +
    theme(plot.title = element_text(size=10,margin = margin(b=-10)))+
    scale_x_date(date_labels = "%Y",date_breaks = "1 years")+
    scale_color_manual(values=c("#bc5090","#003f5c"))+
    geom_vline(xintercept = as.numeric(as.Date(c("2009-01-01",linetype=3)+
    theme(panel.grid.major.y = element_blank(),panel.grid.minor.x = element_blank())
    print(A)
}

我收到“强制引入的 NA”警告。我怀疑这是一个美学问题以及 ggplot 如何解释“基因”的问题。我尝试过 Sym()、as.name() 和 aes_string，但对我不起作用。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

aestheticsggplot2loopsrr