R-从标题名称中选择文本以添加到GGPLOT

Question

我想在图表的底部添加一些文本。我知道要添加文本，但是我不确定如何在数据集中选择此列标题位置是我添加到图表底部的文本，此处包括我的数据。我还想将一列逐列在数据中显示"系统上传时间= 2017年7月25日18:53:32"作为我要添加的文本，而不是我的代码中的"添加文本"。我该如何执行此操作而不必更改所有文件？

library(readxl)
library(ggplot2)
library(reshape2)
library(grid)
library(gridExtra)

TestData$Temp2 <- (TestData$Temp/10)
TestData$Temperature <- (TestData$Temp2*56)
TestData$Chlorophyll <- (TestData$Derivedchlorophyll*56)    

dat.m <- melt(TestData, id=c ("Depth", "Temp", "Temp2", "Specific Conductance [µS/cm]", "FlECO-AFL", "Beam Attenuation (1/m)", 
                            "Beam Transmission (%)", "Transmissometer voltage", 
                            "Fluorometer voltage", "CDOM Voltage", "CDOM (mg/m^3)", "Flag", "Derivedchlorophyll"))
plot<-ggplot(data=subset(dat.m, variable %in% c("PAR","Temperature", "Chlorophyll")), aes(value, Depth, colour = variable)) +
  geom_point() + scale_y_reverse() + scale_x_continuous( "PAR", 
  sec.axis = sec_axis(~ . / 56, name = "Chlorophyll (µg/L)nTemperature (10 °C)"))

grid.newpage()
footnote <- "ADD TEXT HERE"
g <- arrangeGrob(plot, bottom = textGrob(footnote, x = 0, hjust = -0.1, vjust=0.1, gp = gpar(fontface = "italic", fontsize = 12)))
grid.draw(g)

Answer 1

在第二部分中，如果"系统上传时间"始终处于标题的相同位置，我会使用：

footnote <- colnames(TestData)[15]

另外，如果您的标题中的位置在文件之间有所不同，则使用：

grep("System UpLoad Time =", colnames(TestData), value = T)

我不确定您要在问题的第一部分中选择什么，或者实际上是同一问题。尽管与上述有关的直觉应该起作用。

另外，可能值得重新命名您的问题以适合实际问题 - 例如，"从标题名称中选择文本"。如您所说，您知道如何将文本放在GGPLOT图下方。