Мне нужно построить три графика рядом, используя код r.Мне удалось построить все графики бок о бок (строки или столбцы) в одной панели, используя функцию par, но я не смог управлять одинаковым размером трех графиков, не потеряв свойство графиков. Я выполнял расчеты ординации с помощью пакета vegan.
У меня есть две цифры с кодами.одна фигура со всеми тремя графиками на одной панели, а одна - только с одним графиком. Я пробовал несколько комбинаций функции маржинальной номинации, но пока не повезло.Я хочу, чтобы все три графика с одинаковой длиной и шириной в одной панели.если возможно, я хочу, чтобы все три графика с размером (одиночные графики, как на рисунке прикреплены) на одной панели.
> par(mfrow = c(1, 3)) par(cex = 0.6) par(mar = c(3, 3, 0, 0), oma =
> c(1, 1, 1, 1))
>
> pl1<-ordiplot(ord3d, choices = c(1, 2),cex = 0.5, display ="species" ,
> type = 'n',
> ylim = c(-2.0,3.0),
> xlim = c(-2.0,3.0)) points(pl1, what = 'species',col="red",cex=0.5, pch = 19) ordiellipse(ord3d,choices =
> c(1,2),env1$TREATMENT,conf = 0.95,label = F,col=1:4,lwd = 2)
> legend("topright",
> legend = "species",
> col = "red",
> pch = 19,
> bty = "o",
> pt.cex = 0.5,
> cex = 0.5,
> text.col = "black",
> horiz = F) legend('bottomright',cex=0.5, legend=unique(env1$TREATMENT),title="TREATMENT",col=unique(env1$TREATMENT),lty=1,lwd=1)
> plot(vectfitordsubsetenv1,cex=0.5)
>
> pl2<-ordiplot(ord3d, choices = c(1, 3),cex = 0.5, display ="species" ,
> type = 'n',
> ylim = c(-2.0,3.0),
> xlim = c(-2.0,3.0)) points(pl2, what = 'species',col="red", cex = 0.5,pch = 19) ordiellipse(ord3d,choices =
> c(1,3),env1$TREATMENT,conf = 0.90,label = F,col=1:4,lwd = 2)
> legend("topright",
> legend = "species",
> col = "red",
> pch = 19,
> bty = "o",
> pt.cex = 0.5,
> cex = 0.5,
> text.col = "black",
> horiz = F) legend('bottomright',cex=0.5,legend=unique(env1$TREATMENT),title="TREATMENT",col=unique(env1$TREATMENT),lty=1,lwd=1)
> plot(vectfitordsubsetenv1,cex = 0.5)
>
> pl3<-ordiplot(ord3d, choices = c(2, 3),cex = 0.5, display ="species" ,
> type = 'n',
> ylim = c(-2.0,3.0),
> xlim = c(-2.0,3.0)) points(pl3, what = 'species',col="red",cex=0.5, pch = 19) ordiellipse(ord3d,choices =
> c(2,3),env1$TREATMENT,conf = 0.95,label = F,col=1:4,lwd = 2)
> legend("topright",
> legend = "species",
> col = "red",
> pch = 19,
> bty = "o",
> pt.cex = 0.5,
> cex = 0.5,
> text.col = "black",
> horiz = F) legend('bottomright',cex=0.5,legend=unique(env1$TREATMENT),title="TREATMENT",col=unique(env1$TREATMENT),lty=1,lwd=1)
> plot(vectfitordsubsetenv1,cex = 0.5)
Буду признателен за помощь.Я ожидаю, что все три графика на одной панели с одинаковой длиной и шириной вместе с легендами