Question

我试图在R中循环很多图。我使用的代码如下所示：

#--------------------------------------------------------------------
#### Read data & Converting factors ####
dat <- read.table("Complete RING.txt", header =TRUE)  
str(dat)
dat$Vial <- as.factor(dat$Vial)
dat$Line <- as.factor(dat$Line)
dat$Fly <- as.factor(dat$Fly)  
dat$Temp <- as.factor(dat$Temp)
str(dat)


meltet <- melt(dat, id=c("Concentration","Sex","Line","Vial", "Fly", "Temp", "Vial_nr"))
meltet1 <- subset(meltet, Line=="20")
meltet1$variable <- as.factor(meltet1$variable)

AllConcentrations <- levels(unique(meltet1$Concentration))
for (i in AllConcentrations) {
meltet.i <- meltet1[meltet1$Concentration ==i,]
quartz()
print(dotplot(value~variable|Temp, group=Sex, data = meltet.i ,xlab="Time", ylab="Fly position", main=paste("Line 20 concentraion", AllConcentrations[i]))) }

使用的浓度用A，B，C，D，E，X和Y表示 - 我如何在图中添加标题，随着图变化，我试图使用main =＆＃34; ＆＃34;功能，但我在每个图中得到相同的名称。我现在得到的标题是：每个图表中的第20行浓度NA

编辑：更新了代码

Answer 1

我相信你循环的AllConcentrations矢量是一个类＆＃34;字符。＆＃34;如果您想在标题中使用此功能，请使用main=AllConcentrations[i]。您还可以使用粘贴功能main=paste("Graph of", AllConcentrations[i])。

制作这个版本

将标题添加到循环图R中

1 个答案: