Здесь вы можете найти данные для приведенного ниже кода
x<-as.matrix(Mean_SD_of_Cluster_1[,2])
x<-c(x[1:425,],NA,x[426:632,])
y1<-as.matrix(Mean_SD_of_Cluster_1[,3])
y1<-c(y1[1:425,],NA,y1[426:632,])
y2<-as.matrix(Mean_SD_of_Cluster_2[,3])
y2<-c(y2[1:425,],NA,y2[426:632,])
y3<-as.matrix(Mean_SD_of_Cluster_3[,3])
y3<-c(y3[1:425,],NA,y3[426:632,])
plot(xgap2,y1,xaxt="n",t="l",lwd=1.5,col="#0073C2FF",xlab=expression(Wavenumber / cm^-1), ylim=c(-0.11,0.19),ylab="Normalized absorbance",main="Cluster Means")
xat <- pretty(xgap2, n=15)
xat <- xat[xat!=1800]
xlab <- ifelse(xat>1800, xat+1000, xat)
axis(1, at=xat, labels=xlab)
axis.break(1, 1800, style="slash")
lines(xgap2,y2,t="l",col="#E7B800",lwd=1.5)
lines(xgap2,y3,t="l",col="#FC4E07",lwd=1.5)
legend("topright",legend=c("1","2","3"), cex=0.8,bty="y",col=c("#0073C2FF","#E7B800","#FC4E07"), lty=1, lwd=1.5)
Как составить линейный график с помощью программы R? Как показано в коде, теперь я знаю только сделать график с использованием «plot» и «lines» в R. Возможно ли построить линейный граф с накоплением как таковой, который мы получаем с помощью программного обеспечения «Origin» [Этот составной график получен для другого набора данных с использованием Origin] / 2