Question

我正在为一门课程做作业。代码创建变量以在rms中的data.dist函数中使用。然后，我们使用ols（）创建一个简单的线性回归模型。在data.dist（）和ols（）函数之前打印/创建第一个绘图很简单。我们使用：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;
using System.ComponentModel;
using System.Drawing;

namespace MyCustomControls
{
    public sealed class ReadOnlyPropertyGrid : System.Windows.Forms.PropertyGrid
    {
        #region Non-greyed read only support
        public ReadOnlyPropertyGrid()
        {
            this.ViewForeColor = Color.FromArgb(1, 0, 0);
        }
        //---
        private bool _readOnly;
        public bool ReadOnly
        {
            get { return _readOnly; }
            set
            {
                _readOnly = value;
                this.SetObjectAsReadOnly(this.SelectedObject, _readOnly);
            }
        }
        //---
        protected override void OnSelectedObjectsChanged(EventArgs e)
        {
            this.SetObjectAsReadOnly(this.SelectedObject, this._readOnly);
            base.OnSelectedObjectsChanged(e);
        }
        //---
        private void SetObjectAsReadOnly(object selectedObject, bool isReadOnly)
        {
            if (this.SelectedObject != null)
            {
                TypeDescriptor.AddAttributes(this.SelectedObject, new Attribute[] { new ReadOnlyAttribute(_readOnly) });
                this.Refresh();
            }
        }
        //---
        #endregion
    }
}

然后我们创建data.dist（）和ols（），这里名为fit0。

plot(x,y,pch='o') 
lines(x,yTrue,lty=2,lwd=.5,col='red')

这一切都很顺利，打印出线性回归和anova表的结果。然后，我们想要根据模型进行预测，并绘制这些预测。情节打印得很好，但线条和点不会出现在这里。代码：

mydat=data.frame(x=x,y=y)
dd=datadist(mydat)
options(datadist='dd') 

fit0=ols(y~x,data=mydat)
fit0
anova(fit0)

注意 - 这在R中工作正常。我更喜欢使用RStudio，但如果没有明确的解决方案，可以切换到R.我已经尝试了几次dev.off（）（即重复直到get，我已经尝试关闭RStudio并重新打开，我已经卸载并重新安装了R和RStudio，rms包（包括ggplot2）），更新了软件包，使我的RStudio图形窗口更大。我见过的任何解决方案都没有用。帮助！

无效的图形状态 - 初学者RStudio / R用户的持续问题

0 个答案: