如何为图例制作函数的返回值

Question

我制作了一个绘制 csv 文件中数据的函数。

我想从调用函数时使用的变量名称中获取图例中的标签。

使用下面的代码，names(dataPlot1) 在图例中使用名称“temp1”“temp2”“temp3”。我想把它设为“x”、“y”、“z”。我该怎么做？

temperature <- function(temp1,temp2,temp3)
{
    dataPlot1 <- data.frame(temp1,temp2,temp3)
    matplot(dataPlot1,axes=T,frame=T,type="l",
            xlab="time (hour)",ylab="temperature(C)",
            main=names(dataPlot1))
    lines(dataPlot1[1],lty=1,col="blue")
    lines(dataPlot1[2],lty=2,col="red")
    lines(dataPlot1[3],lty=2,col="forestgreen")  
    legend("topright",names(dataPlot1),lty=c(1,2,2),
            col=c("blue","red","forestgreen"))

}
temperature(x,y,z)

Answer 1

也许是这样的：

temperature <- function(temp1,temp2,temp3)
{ t1 <- deparse(substitute(temp1))
  t2 <- deparse(substitute(temp2))
  t3 <- deparse(substitute(temp3)) 
    dataPlot1 <- data.frame(temp1,temp2,temp3)
    matplot(dataPlot1,axes=T,frame=T,type="l",
            xlab="time (hour)",ylab="temperature(C)",
            main=names(dataPlot1))
    lines(dataPlot1[1],lty=1,col="blue")
    lines(dataPlot1[2],lty=2,col="red")
    lines(dataPlot1[3],lty=2,col="forestgreen")  
    legend("topright", c(t1,t2,t3), lty=c(1,2,2),
            col=c("blue","red","forestgreen"))

Answer 2

您有多种选择：

1. 为您的数据命名：dataPlot1 <- data.frame(x=temp1, y=temp2, z=temp3)
2. 稍后分配名称：`colnames(dataPlot1)
3. 将所需文本作为legend= 参数提供给legend() 调用。
4. 更改您的函数并添加第四个参数，例如 legtxt=c("x","y","z") 并将其传递给 legend。