画图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

谁能用R画出下面的图啊
数据，在附件里，格式：分隔符的txt文件，v1-v8代表不同的样品，L18-L36代表不用的长度（横坐标）。
大家原谅我的愚笨吧，用plot函数能实现吗？当然只要用r就好！！！！！！！！！！！！！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：plot txt 横坐标 画图

clean=read.csv("Clean.csv",head=T)
attach(clean)
plot(Length,V1,type="b",col=3,lty=2,pch=1,xlim=c(17,37))
lines(Length,V2,type="b",col=4,lty=3,pch=2)
lines(Length,V3,type="b",col=5,lty=4,pch=3)
lines(Length,V4,type="b",col=6,lty=5,pch=4)
lines(Length,V5,type="b",col=7,lty=6,pch=5)
lines(Length,V6,type="b",col=8,lty=7,pch=6)
lines(Length,V7,type="b",col=9,lty=8,pch=7)
lines(Length,V8,type="b",col=10,lty=9,pch=8)
axis(1,seq(18,36,by=1))
axis(2,seq(0,3000000,by=500000))
legend("topleft", c(paste("V",1:8,sep="")), col = c(3:10), lty = c(2:9), pch = c(1:8), merge = TRUE, bg='gray90')

for (i in 1:ncol(dat)) {
    if (i == 1)
        plot(1:nrow(dat), dat[, i], pch = i, lwd = 2, type = "o", col = i, axes = F, ylim = c(min(dat), max(dat)))
    lines(1:nrow(dat), dat[, i], pch = i, type = "o", lwd = 2, col = i)
}
axis(2)
axis(1, at = 1:nrow(dat), labels = rownames(dat))
legend("topleft", legend = colnames(dat), col = 1:ncol(dat), lwd = 2)
box()

mswsg 发表于 2012-12-31 22:41
clean=read.csv("Clean.csv",head=T)
attach(clean)
plot(Length,V1,type="b",col=3,lty=2,pch=1,xlim=c( ...

看了下你新给的数据，
需要a <- read.csv("Clean2.txt",sep="\t",header=T)
      a[,1] <-18:36
      a
做多条折线时，可以用 matplot(.....,axes=F) #axes=F去边框
                                        axis,,,,,
干嘛非要 plot 呢？
是不是 ，马同学？

jmpamao 发表于 2012-12-31 23:36
看了下你新给的数据，
需要a

嗯，我试试，我刚接触，这个matplot还没接触过，我试试。你们怎么知道我姓ma？

shengwei 同学，不好意思 我们都知道，lol

jmpamao 发表于 2013-1-1 13:53
shengwei 同学，不好意思 我们都知道，lol

其实我是女的

haha,性别还是很难猜的 ，
setwd("/Users/mashengwei/Desktop/RMSW/")

jmpamao 发表于 2013-1-1 15:19
haha,性别还是很难猜的 ，
setwd("/Users/mashengwei/Desktop/RMSW/")

原来呵