虛擬數據示例

我想創建一個虛擬數據示例，以便我可以更好地向論壇提問我的問題。基本上，我試圖在一頁紙上創建一個帶有6個圖形的PDF。下面是我一直在嘗試構建的示例代碼。虛擬數據示例

#Dummy data 
Data1 <- data.frame(flow = c(8,8.5,6,7.1,9), SP_elev = c(20,11,5,25,50)) 
Data2 <- data.frame(flow = c(7,7.2,6.5,8.2,8.5), SP_elev = c(13,15,18,25,19)) 
Data3 <- data.frame(flow = c(2,3,5,7,9), SP_elev = c(20,25,28,30,35)) 
Data4 <- data.frame(flow = c(1,4,6,8,9), SP_elev = c(13,15,18,25,19)) 
Data5 <- data.frame(flow = c(1,4,6,8,9), SP_elev = c(13,15,18,25,19)) 
Data6 <- data.frame(flow = c(1,4,6,8,9), SP_elev = c(22,23,25,27,29)) 

#Create Vector list (in place of list.files) 
dataframes = list("Data1" = data1, 
        "Data2" = data2, 
        "Data3" = data3, 
      "Data4" = data4, 
      "Data5" = data5, 
      "Data6" = data6) 

# open the PDF device 
pdf(file="Dummy_Example.pdf", paper="letter", height=10, width=8) 

#Create array of plots 
par(mfrow=c(3,2)) 

#plot a with regression model 
for (i in dataframes) { 

plot (i[,c('flow', 'SP_elev')], xlab=expression(paste("Discharge (", ft^3, "/s)",sep = "")), ylab= "Elevation (m)", tck=0.02, adj = 0.5) 

} 

# close the PDF device 
dev.off()

我不斷收到錯誤

Error in i[, c("flow", "SP_elev")] : incorrect number of dimensions

來源

2014-04-10 dubbbdan

短暫和不良的修復將會'get（i）' – baptiste

@baptiste我會把它放在哪裏？在劇情功能？ – dubbbdan

你的'dataframes'實際上是一個字符向量，而不是一個列表。你應該使用'dataframes <--list（）'作爲baptiste建議 –

你應該把你的data.frames在列表中，

dataframes = list("Data1" = Data1, 
        "Data2" = Data2, 
        "Data3" = Data3) # I gave up here

您的代碼應工作的其餘部分。

來源

2014-04-10 21:54:24 baptiste

我將字符向量更改爲名單，我仍然收到相同的錯誤。 – dubbbdan

你拼錯的數據，別忘了首都D – baptiste

令人驚歎。有效。我猜我的眼睛很累。非常感謝。 – dubbbdan

虛擬數據示例

回答

相關問題