绘制boxplot 和配对线图

1. boxplot

library(reshape2)
library(tidyverse)
ggdata<- read.csv('714.csv')
head(ggdata)
tail(ggdata)
ggdata1 <- melt(ggdata)
head(ggdata1)
ggplot(ggdata1,aes(x=ggdata1$variable,y=ggdata1$value))+ylim(0.3,1.2)+
  geom_boxplot(aes(fill=ggdata1$variable))+theme_bw()+
  scale_fill_manual(
    values = c("Aquamarine","sandybrown")
    
  )

2. 配对线图

library(reshape2)
library(tidyverse)
ggdata<- read.csv('714.csv')

ggdata1 <- melt(ggdata)

head(ggdata1)
tail(ggdata1)

ggplot(ggdata1,aes(x=ggdata1$variable,y=ggdata1$value))+ylim(0,11)+
  geom_point(aes(color=ggdata1$variable))+theme_bw()+
  geom_line(aes(group=GeneID ), color="gray")

输入数据形式

image.png