如何解决ggplot2 代码运行并更新绘图,但没有我看到一堆数字而不是数据
上周我使用相同的代码绘制了我的数据,一切顺利。 我用新行更新了数据,所以这是我唯一改变的东西,但是 ggplot 没有绘制数据,而是绘制了一堆数字,如我附上的图片所示。
我确定这与数据的编码方式有关,但上周发生时,我所做的是使用 as.numeric,仅此而已。
**# Read the data
experiment_6 <- read.csv("Data_Experiments.xlsx - experiment_6.csv",header=TRUE)
#clean the irrelevant rows
experiment_6_clean <- experiment_6[-c(1,2),]
#check if it data.frame
is.data.frame(experiment_6_clean)
#remove Nas from dataset
#experiment_6_clean %>% drop_na()
#select relevant data
experiment_6_clean<- experiment_6_clean[1:517,]
#rename columns
experiment_6_clean<- dplyr::rename(experiment_6_clean,mean_S_both_Par= X,plusSD_S_both_Par= X.1,minusSD_S_both_Par=X.2,mean_S_both_Agl=X.3,plusSD_S_both_Agl= X.4,minusSD_S_both_Agl= X.5,mean_M_both_Par= X.6,plusSD_M_both_Par= X.7,minusSD_M_both_Par= X.8,mean_M_both_Agl= X.9,plusSD_M_both_Agl= X.10,minusSD_M_both_Agl= X.11,mean_L_water_Sch= X.12,plusSD_L_water_Sch= X.13,minusSD_L_water_Sch= X.14,mean_L_both_Sch= X.15,plusSD_L_both_Sch=X.16,minusSD_L_both_Sch= X.17,Time= X1)
#make all relevant data numeric
Time<- as.numeric(experiment_6_clean$Time)
#small_pots_both_par------4"_2mm_BothSides_Par
mean_S_both_Par<- as.numeric(experiment_6_clean$mean_S_both_Par)
plusSD_S_both_Par<- as.numeric(experiment_6_clean$plusSD_S_both_Par)
minusSD_S_both_Par<- as.numeric(experiment_6_clean$minusSD_S_both_Par)
#small_pots_both_agl---4"_2mm_BothSides_Agl
mean_S_both_Agl<- as.numeric(experiment_6_clean$mean_S_both_Agl)
plusSD_S_both_Agl<- as.numeric(experiment_6_clean$plusSD_S_both_Agl)
minusSD_S_both_Agl<- as.numeric(experiment_6_clean$minusSD_S_both_Agl)
#medium_pots_both_par---6"_2mm_BothSides_Par
mean_M_both_Par<- as.numeric(experiment_6_clean$mean_M_both_Par)
plusSD_M_both_Par<- as.numeric(experiment_6_clean$plusSD_M_both_Par)
minusSD_M_both_Par<- as.numeric(experiment_6_clean$minusSD_M_both_Par)
#medium_pots_both_agl---6"_2mm_BothSides_Agl
mean_M_both_Agl<- as.numeric(experiment_6_clean$mean_M_both_Agl)
plusSD_M_both_Agl<- as.numeric(experiment_6_clean$plusSD_M_both_Agl)
minusSD_M_both_Agl<- as.numeric(experiment_6_clean$minusSD_M_both_Agl)
#large_pots_water_Sch---10"_4mm_WaterSide_Sch
mean_L_water_Sch<- as.numeric(experiment_6_clean$mean_L_water_Sch)
plusSD_L_water_Sch<- as.numeric(experiment_6_clean$plusSD_L_water_Sch)
minusSD_L_water_Sch<- as.numeric(experiment_6_clean$minusSD_L_water_Sch)
#large_pots_both_Sch---10"_5mm_BothSides_Sch
mean_L_both_Sch<- as.numeric(experiment_6_clean$mean_L_both_Sch)
plusSD_L_both_Sch<- as.numeric(experiment_6_clean$plusSD_L_both_Sch)
minusSD_L_both_Sch<- as.numeric(experiment_6_clean$minusSD_L_both_Sch)
experiment_6_clean<- as.data.frame(experiment_6_clean)
#plot
#create key
colors <- c(mean_S_both_Par = "light blue",mean_S_both_Agl = "red",mean_M_both_Par = "orange",mean_M_both_Agl = "violet",mean_L_water_Sch = "pink",mean_L_both_Sch = "yellow")
#compare all six pots
all_six<- ggplot(experiment_6_clean,aes(x=Time))+
geom_smooth(aes(y=mean_S_both_Par,colour = "mean_S_both_Par"),size = 2,se=TRUE ) +
geom_smooth(aes(y=mean_S_both_Agl,colour = "mean_S_both_Agl"),se=TRUE)+
geom_smooth(aes(y=mean_M_both_Par,colour = "mean_M_both_Par"),se=TRUE)+
geom_smooth(aes(y=mean_M_both_Agl,colour = "mean_M_both_Agl"),se=TRUE )+
geom_smooth(aes(y=mean_L_water_Sch,colour = "mean_L_water_Sch"),se=TRUE)+
geom_smooth(aes(y=mean_L_both_Sch,colour = "mean_L_both_Sch"),se=TRUE)+
labs(title="Experiment 6",subtitle="All Plants",caption="20 days",y="Mositure Level",x="Time",color = "Group") +
scale_color_manual(values = colors)+
theme(plot.title=element_text(size=20,face="bold"),axis.text.x=element_text(size=15),axis.text.y=element_text(size=15))+
coord_cartesian(ylim=c(-100,150),xlim=c(0,25))+
theme_bw()
all_six**
what I got this weekwhat I had last week
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。