gpt4 book ai didi

r - 如何在 R 中为 ggplot 的每个方面添加 R2?

转载 作者:行者123 更新时间:2023-12-03 18:40:21 26 4
gpt4 key购买 nike

有没有办法先从 1:3 更改构面标签?类似于 c(good, bad, ugly) .另外,我想添加 R2每个方面的值(value)。下面是我的代码 - 我尝试了一些东西但没有成功。

DF = data.frame(SUB = rep(1:3, each = 100), Ob = runif(300, 50,100), S1 = runif(300, 75,95), S2 = runif(300, 40,90),
S3 = runif(300, 35,80),S4 = runif(300, 55,100))
FakeData = gather(DF, key = "Variable", value = "Value", -c(SUB,Ob))

ggplot(FakeData, aes(x = Ob, y = Value))+
geom_point()+ geom_smooth(method="lm") + facet_grid(Variable ~ SUB, scales = "free_y")+
theme_bw()

这是我使用上述代码得到的图。
enter image description here
我尝试了下面的代码来更改 facet_label 但它没有用
ggplot(FakeData, SUB = factor(SUB, levels = c("Good", "Bad","Ugly")), aes(x = Ob, y = Value))+
geom_point()+ geom_smooth(method="lm") + facet_grid(Variable ~ SUB, scales = "free_y")+
theme_bw()

我不知道如何添加 R2facets .有没有有效的计算方式和 R2facets ?

最佳答案

您可以使用 ggpubr::stat_cor()轻松地将相关系数添加到您的绘图中。

library(dplyr)
library(ggplot2)
library(ggpubr)

FakeData %>%
mutate(SUB = factor(SUB, labels = c("good", "bad", "ugly"))) %>%
ggplot(aes(x = Ob, y = Value)) +
geom_point() +
geom_smooth(method = "lm") +
facet_grid(Variable ~ SUB, scales = "free_y") +
theme_bw() +
stat_cor(aes(label = ..rr.label..), color = "red", geom = "label")

enter image description here

关于r - 如何在 R 中为 ggplot 的每个方面添加 R2?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60143052/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com