set.seed(100)
x1=sample(1:100,30)
y=1:30
reg <- lm(y~x1)
sink("zz1.txt") #主要是这一部
summary(reg)
sink(NULL)
再看工作空间中的zz1.txt文件里面就有输出的结果了。
这个方法可以试一下。
如果只显示x轴,可能是因为在R中绘制相关矩阵的时候没有将ylab和xlab参数设置正确。请先检查一下ylab和xlab参数的设置情况,并确保两个参数都设置了正确的标签,然后再重新绘制相关矩阵,应该就可以看到x轴和y轴都有标签了。