Отображать только коэффициент корреляции в ggplot stat_cor

Как вы отображаете только коэффициент корреляции в ggpubr::stat_cor, а не p-значение? Кажется, что внутри stat_cor нет аргумента для указания только одной статистики или другой. Есть ли какие-то другие творческие обходные пути?


person MeC    schedule 25.09.2019    source источник
comment
ggplot2 не имеет stat_cor. Какой дополнительный пакет вы используете? Может ggpubr?   -  person Gregor Thomas    schedule 25.09.2019
comment
Вам будет легче помочь, если вы включите простой воспроизводимый пример с образцом ввода и желаемым выводом, которые можно использовать для тестирования и проверки возможных решений.   -  person MrFlick    schedule 25.09.2019
comment
Нет, я использую geom_point в ggplot, а не в ggpubr.   -  person MeC    schedule 25.09.2019
comment
Вторя Грегору, нет ggplot2::stat_cor; пакет ggplot2 не имеет такой функции, тогда как ggpubr имеет.   -  person Jon Spring    schedule 25.09.2019
comment
ок, отредактировал. все еще остается вопрос, как удалить p-значение из stat_cor()?   -  person MeC    schedule 25.09.2019
comment
можешь попробовать включить: aes(label = ..r.label..) в stat_cor? это должно показывать только значение R. github.com/kassambara/ggpubr/issues/188   -  person Ben    schedule 26.09.2019
comment
просто включая ..r.label.. сработало, спасибо!   -  person MeC    schedule 26.09.2019


Ответы (1)


Следуя решению Бена, я включил воспроизводимый пример. Сначала давайте использовать простой пример:

library('ggplot2')
library('ggpubr')
data(iris)

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width  )) +
geom_point() + theme_bw() +
stat_cor(method = "pearson")

введите здесь описание изображения

Теперь вы хотели отобразить только коэффициент корреляции, то есть R.

ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width  )) +
geom_point() + theme_bw() +
stat_cor(method = "pearson", aes(label = ..r.label..))

На самом деле вы также можете рассчитать значение R независимо и добавить текстовое поле на график, используя аннотацию (пример из базы данных радужной оболочки):

round(cor(iris$Sepal.Length, iris$Sepal.Width),2)

введите здесь описание изображения

person david    schedule 18.10.2020