怎样用R作图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

x是变量（取值（1，400）），y是x的函数，怎样做出x和y的图像？哪位高手指点我一下吧，我不知道命令怎么写

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：高手指点 不知道 我不知道

plot(y ~ x)

plot(x,f(x),type="p")

2# qoiqpwqr
谢谢，这个命令我知道，但是我实际操作时出了问题，
m是变量，定义了一个关于m的函数
emp.TailCopula = function(samp,x,y,m){
n = nrow(samp)
FN1= data[,1]
FN2= data[,2]
T = sum((rank(FN1,ties.method="max")/n>1-m/n*x)&(rank(FN2,ties.method="max")/n>1-m/n*y))/m
return(T)
}
我想做m和T的图像，但是运行后显示的是
警告信息：
1: In rank(FN1, ties.method = "max")/n > 1 - m/n * x :
  长的对象长度不是短的对象长度的整倍数
2: In rank(FN2, ties.method = "max")/n > 1 - m/n * y :
  长的对象长度不是短的对象长度的整倍数

请问我什么地方弄错了？如果可以的话，可否帮我写下源程序，万分感谢

3# 楚韵荆风
谢谢，这个命令我知道，但是我实际操作时出了问题，
m是变量，定义了一个关于m的函数
emp.TailCopula = function(samp,x,y,m){
n = nrow(samp)
FN1= data[,1]
FN2= data[,2]
T = sum((rank(FN1,ties.method="max")/n>1-m/n*x)&(rank(FN2,ties.method="max")/n>1-m/n*y))/m
return(T)
}
我想做m和这个函数的图像，但是运行后显示的是
警告信息：
1: In rank(FN1, ties.method = "max")/n > 1 - m/n * x :
  长的对象长度不是短的对象长度的整倍数
2: In rank(FN2, ties.method = "max")/n > 1 - m/n * y :
  长的对象长度不是短的对象长度的整倍数
请问我什么地方弄错了？如果可以的话，可否帮我写下源程序，万分感谢

你的x，y，m等都是多少？

6# qoiqpwqr
x=1，y=1，m=1:400

7# 751919234
我试了一下，没有什么问题啊
你的samp和data又各是什么？

8# qoiqpwqr
samp就是指data，数据是股市收益，请问你是怎么做的啊？问什么我总是显示那个警告？

我就随便赋了一个矩阵给samp

> x = 1
> y = 1
> m = 1:400
> samp = matrix(1:16, 4, 4)
> data = samp
> emp.TailCopula = function(samp,x,y,m){
+ n = nrow(samp)
+ FN1= data[,1]
+ FN2= data[,2]
+ T = sum((rank(FN1,ties.method="max")/n>1-m/n*x)&(rank(FN2,ties.method="max")/n>1-m/n*y))/m
+ return(T)
+ }
> output = emp.TailCopula(samp, x, y, m)
> plot(output ~ m)