如何根據數據框的多列中的特徵創建散點圖？

Question

age <- rnorm(100, 0:100) 
freq <- rnorm(100, 0:1) 
char1<-stringi::stri_rand_strings(100, length = 1, pattern = "[abc]") 
char2<-stringi::stri_rand_strings(100, length = 1, pattern = "[def]") 
char3<-stringi::stri_rand_strings(100, length = 1, pattern = "[def]") 
char3<-stringi::stri_rand_strings(100, length = 1, pattern = "[ghi]") 
dftest <- data.frame(age, freq, char1, char2, char3) 
dflist <- list(dftest, dftest, dftest, dftest, dftest) 

這將創建一個示例數據框架，演示我遇到的問題。

我想爲列表中的每個數據框創建年齡與頻率的散點圖，但是我想根據列「char＃」中的值爲點創建不同的顏色。我還需要一個單獨的趨勢線來表示這些獨立特徵中的每一個的值。

我也希望能夠根據不同char列的不同特徵的組合來做到這一點。其中一個例子是每種組合的3 * 3 = 9種顏色，每種顏色都有不同的趨勢線。

這將如何完成？

我希望這是足夠重複和清晰的。我只發佈了幾次，所以我仍然習慣了這種格式。

謝謝！

Answer 1

首先讓我們來創建一個數據幀，讓我們展現出點用不同的顏色：

df2 <- data.frame(age=rnorm(200,0:100), 
    freq=rnorm(200,0:1),id=rep(1:2,each=100)) 

然後我們就可以plot像這樣：

plot(dflist2$age,dflist2$freq, col=dflist2$id, pch=16) 

我們設置col（顏色）等到id（這將代表每個數據幀）。 pch是點類型（實心圓點）。

Answer 2

您可以嘗試使用dplyr進行數據準備，並使用ggplot進行繪圖。所有功能都通過tidyverse包裝：

library(tidyverse) 
# age vs freq plus trendline for char1 
as.tbl(dftest) %>% 
    ggplot(aes(age, freq, color=char1)) + 
    geom_point() + 
    geom_smooth(method = "lm") 

# age vs freq plus trendline for combinations of char columns 
as.tbl(dftest) %>% 
    unite(combi, char1, char2, char3, sep="-") %>% 
    ggplot(aes(age, freq, color=combi)) + 
    geom_point() + 
    geom_smooth(method = "lm") 
# no plot as too many combinations make the plot to busy 
dflist %>% 
    bind_rows(.id = "df_source") %>% 
    ggplot(aes(age, freq, color=char1)) + 
    geom_point() + 
    geom_smooth(method = "lm", se=FALSE) + 
    facet_wrap(~df_source)