R语言 在ggplot批处理函数中更新打印标签

w8rqjzmb  于 2023-07-31  发布在  其他
关注(0)|答案(1)|浏览(88)

我有一个简单的函数,它将绘制收集到的个体数量(Catch = y轴)与森林边缘的距离(Trap = x轴),其中i = 1到89个物种。dataframe有如下7列:类型、林分、线、陷阱(距离边缘0、10、15、25、50、75 m)、物种(89个物种中的每一个的8个字符文本名称)和捕获量(这是一个数字计数总数)。我可以得到的图表绘制罚款,但是,我想添加每个物种的名称到每个图表,这样我就知道哪些物种已被绘制。
下面是我的简单函数:df= stap 1 stap1$Species是包含89个物种的文本列:Acidcren,Acidquad. Tachbasa

plot_fun = by(stap1, stap1$Species, function(i) {
      ggplot(i) +
          geom_point(aes(Trap, Catch))
     })

字符串
该函数简单地按每个物种在y轴上绘制Catch ~在x轴上绘制Trap距离。有什么想法我可以修改功能,包括物种名称?

jhdbpxl9

jhdbpxl91#

您可以使用+ labs(title = unique(i$Species))添加Species的名称。
使用基于iris的最小可再现示例:

library(ggplot2)

by(iris, iris$Species, function(i) {
  ggplot(i) +
    geom_point(aes(Sepal.Length, Sepal.Width)) +
    labs(title = unique(i$Species))
})
#> iris$Species: setosa

字符串


的数据

#> ------------------------------------------------------------ 
#> iris$Species: versicolor


#> ------------------------------------------------------------ 
#> iris$Species: virginica

相关问题