在數據框的列中生成同一畫布上的多個散點圖

Question

df是一個包含10行和5列的數據框。行名依次爲'1'，'2'，...，'10'，而列名依次爲'A'，B'，...，'E'。 df的單元格中的值是數字。每列表示一個函數，將每行標記的數字映射到相應的單元格值。我想在同一個畫布上繪製五個散點圖，描繪由五列定義的函數。此外，對於每個函數，我希望每個點都通過線連接到它的兩個「鄰居」（左側和右側）。

如何修改代碼以便在單獨的畫布上繪製五個函數？

謝謝。

---

試圖解決簡化問題。

> row_labels <- (1 : 10) 
> col_labels <- (1 : 3) 
> raw_data <- outer(row_labels, col_labels, FUN = '^') 
> df <- as.data.frame(raw_data) 
> dimnames(df) <- list(row_labels, col_labels) 
> plot(row_labels, df[['1']]) 
> lines(row_labels, df[['1']]) 
> points(row_labels, df[['2']]) 
> lines(row_labels, df[['2']]) 
> points(row_labels, df[['3']]) 
> lines(row_labels, df[['3']]) 

問題與此解決方案：

1. 第二和第三功能的圖形超出帆布。

2. 是否有一個更短，更優雅的方式來完成這項任務？

3. 有沒有辦法在短短而優雅的方式在三個獨立的畫布上創建三個情節？

Answer 1

# your data 
raw_data <- as.data.frame(outer(1:10, 1:3, FUN = '^')) 
colnames(df) <- c("A","B","C") 

#plot it 
plot(df$A,type="n",ylim=range(df),ylab="") # just creates "canvas" 
lapply(df,points,type="b")     # this does the plotting 

編輯：針對OP的評論。

rows  <- c(1, 3, 7, 8, 16, 19, 20, 24, 28, 30) 
df  <- as.data.frame(outer(rows, 1:3, FUN = '^')) 
colnames(df) <- c("A","B","C") 
rownames(df) <- rows 

plot(df$A,type="n",ylim=range(df),xlim=range(rows),ylab="") 
lapply(df,points,x=as.integer(rownames(df)),type="b") 

par(mfrow=c(1,3)) 
lapply(df,plot,x=as.integer(rownames(df)),type="b",ylab="") 

你應該知道，上面的折磨語法完全是因爲X值是該行的名字 - 一個非常，非常糟糕的主意。