关于#r语言#的问题

setwd("D:/Rstu/hm")
library(openxlsx)
df<-read.xlsx("hm450RNAFPKM.xlsx",sheet=2)
library(ggplot2)
library(ggpubr)
p<-ggplot(data=df, aes(x=HM450, y=log2(RNAFPKM)))+
  geom_point()+
  geom_smooth(method = "lm",se=FALSE,lty=2)+
  stat_cor(method = "pearson", 
           label.x = -1.0, label.y = 6)+
  labs(title="POP5")
p

你好，我是有问必答小助手。为了技术专家团更好地为您解答问题，烦请您补充下（1）问题背景详情，（2）您想解决的具体问题，（3）问题相关代码图片或者报错信息。便于技术专家团更好地理解问题，并给出解决方案。

您可以点击问题下方的【编辑】，进行补充修改问题。