我有以下資料框：
library(tidyverse)
dat <- structure(list(feat = structure(c(1L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), .Label = c("A", "KyteDoo", "FoldIndex"
), class = "factor"), dose = c("0.3mM", "1mM", "3mM", "10mM",
"20mM", "0.3mM", "1mM", "3mM", "10mM", "20mM", "0.3mM", "1mM",
"3mM", "10mM", "20mM"), vimp = c(-0.0025, 0, 0.0328571428571429,
0.025, 0.0425, 0.005, 0.015, 0.0228571428571429, 0.0175, 0.02,
0.0125, 0.01, 0.02, 0.0325, 0.015)), class = c("tbl_df", "tbl",
"data.frame"), row.names = c(NA, -15L))
它看起來像這樣：
> dat
# A tibble: 15 × 3
feat dose vimp
<fct> <chr> <dbl>
1 A 0.3mM -0.0025
2 A 1mM 0
3 A 3mM 0.0329
4 A 10mM 0.025
5 A 20mM 0.0425
6 KyteDoo 0.3mM 0.005
7 KyteDoo 1mM 0.015
8 KyteDoo 3mM 0.0229
9 KyteDoo 10mM 0.0175
10 KyteDoo 20mM 0.02
11 FoldIndex 0.3mM 0.0125
12 FoldIndex 1mM 0.01
13 FoldIndex 3mM 0.02
14 FoldIndex 10mM 0.0325
15 FoldIndex 20mM 0.015
并使用此代碼：
library(ggpubr)
p <- ggboxplot(dat, x = "feat", y = "vimp", add = "jitter")
theme(axis.text.x=element_text(angle = 90, hjust = 1, vjust = 0.5, size = 12))
xlab("")
ylab("Variable Importance")
我可以得到這個情節：
我想要做的是根據dose類別為抖動中的每個點著色。我試過這個但失敗了
ggboxplot(dat, x = "feat", y = "vimp", add = "jitter", color = "dose")
正確的方法是什么？
uj5u.com熱心網友回復：
實作所需結果的一種選擇是通過geom_jitter圖層添加抖動點：
library(ggpubr)
#> Loading required package: ggplot2
library(ggplot2)
ggboxplot(dat, x = "feat", y = "vimp")
geom_jitter(aes(color = dose))
theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5, size = 12))
xlab("")
ylab("Variable Importance")
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/407012.html
標籤：