2013-08-07 3 views
-3

Я хочу, чтобы произвести ниже участок в R.прокладочных факторы R

Plot in Excel to be reproduced in R

Мое кодирование это до сих пор:

maraqa <- c(84.8,68.9,84.9,92.5) 
aqua <- c(75,65.1,79.4,82.3) 
mar <- c(84.7,68.3,84.5,77.4) 

x <- c("A", "B", "C", "D") 

что теперь? Благодаря!

+0

Вот ссылка Dropbox, если вы не можете увидеть сюжет (не могу) : [link] (https://dl.dropboxusercontent.com/u/52102974/plot2.png) – hgeop

+5

Пожалуйста, прочитайте одно из многих интродукций и руководств, которые доступны в сети. Мы ожидаем, что вы потратите минимальные усилия, прежде чем задавать здесь вопрос. – Roland

+0

Я посмотрел, я был бы благодарен за то, что его указали в правильном направлении. – hgeop

ответ

2

Вот одно решение ... но смотреть на страницах справки, чтобы выяснить, какие параметры управления enter image description here что ...

maraqa <- c(84.8,68.9,84.9,92.5) 
aqua <- c(75,65.1,79.4,82.3) 
mar <- c(84.7,68.3,84.5,77.4) 

# combine data as matrix 
mat<-cbind(maraqa, aqua, mar) 
rownames(mat)<-c("A", "B", "C", "D") 

#define colours 
coll<-c("red", "blue", "black") 

matplot(mat, type="l", ylim=c(60, 95), ylab="y TBA", main="TBA", xlab="x TBA", 
     axes=FALSE, frame.plot=FALSE, col=coll, lty=rep(1,3)) 
# axes= do you want standart axis or make your own? 
# frame.plot= frame arround plot yes/no 

matpoints(mat, pch=rep(17,3), col=coll, ad=TRUE) 
# to add points, pch controlls for type of points 

axis(side=1, 1:4, labels=rownames(mat)) 
axis(side=2, 60:95, labels=60:95) 
legend("topleft",# position 
     legend=c("maraqa", "aqua", "mar"),# names in legend, 
     lty=c(1,1,1),# type of filling in this case solide line, 
     col = coll,# colour of filling, 
     cex=0.7)# scaling parameter 
+0

, если вам также нравится использование сетки -> 'grid' – holzben

+0

Идеально, спасибо за это, мне было не так очевидно, что делать! – hgeop

+0

Вы также можете найти этот учебник полезным: http://www.cookbook-r.com/Graphs/ – Henrik

Смежные вопросы