小编use*_*965的帖子

运行测试 ( model1.emm=emmeans(model1,~timeBin) contrast(model1.emm, "trt.vs.ctrl", ref = 1, adjust='fdr')) 后，我在控制台中看到以下内容：

是否可以将此输出导出到数据框？

我学会了如何导出其余结果： result = as.data.frame(summary(model1.emm))

在制作图形ggplot并使用viridis调色板后，我想获取为该特定绘图随机选择的所有颜色的十六进制颜色代码列表。那可能吗？

这是数据：

df = data.frame(Cell = c(rep("13a",5), rep("1b",5), rep("5b",5)),
                condition = rep(c("a","b","c","d","e"), 3),
                variable = c(58,55,36,29,53, 57,53,54,52,52, 45,49,48,46,45))

情节：

library(ggplot2)
library(viridis)

windows(width=4, height=4 )

ggplot(df, aes(x = condition, y = variable, group = Cell, color = Cell)) +
geom_point(aes(color = Cell))+
geom_line()+
scale_color_viridis(discrete=TRUE)