R计算TE,宽数据转为长数据，绘制密度曲线图，箱线图

rm(list=ls())
library(tidyverse)
df<-read.csv("Polysome_Counts包括核糖体RNA分一组校正.csv")
df1 <- df%>% mutate(
  te0h=(po_0h_1+po_0h_2+po_0h_3)/