如何在 R 中使用 cut 函数绘制绘图？

Question

这是我需要为 R 解决的问题。我的工作在下面，但我目前找不到我的代码有什么问题。你能帮帮我吗？

当给定x,y对象时，根据x区间值改为区间数据 创建一个绘制不同 y 值的函数 plot_user1。

(1) x 和 y 都作为相同长度的数字向量给出，并且两个向量都是成对的数据。 (2) cut_breaks是用户在将数值向量x分割成截面数据时指定的截面数。由此，在与具有相同区间值的x对应的索引位置绘制y的图表。 因此，绘制的图形数量与 x 的截面数量一样多。 （提示：使用剪切功能） (3) plot_name 用对应的y值表示要绘制的图形的形状。 它具有以下三个值之一：“箱线图”、“直方图”和“散点图”。 (4) color表示图形的颜色

(1) 在一页上绘制y根据x截面值的所有条件图。 (2) 每张图的x轴名称为截面的层级，y轴名称为“y”。 (3)关于图形布局，内边距为c(4,4,2,2)，外边距为c(2,2,5,2)。 （4）如果plot_name有上述三个值以外的值， “错误：plot_name 不正确。”输出字符串。 (5) 图集的标题是“条件箱线图（或散点图或 histogram) 的 y|x”，取决于输入的 plot_name 值。 （提示：在 title 函数中使用外部 =TRUE 参数）

plot_user1<-function(x,y,cut_breaks,plot_name,color) {
if(plot_name=="boxplot") {
    plot_name <- boxplot
    txt <- "The conditional boxplot of y|x"
    }
else if (plot_name == "histogram") {plot_name <- hist
    txt <- "The conditional histogram of y|x"
    }
else if (plot_name == "scatter plot") {plot_name <- plot
    txt <- "The conditional scatter plot of y|x"
    }
else {print("Errors: The plot_name is incorrect.")}
a<-cut(x,cut_breaks)
for (i in 1: cut_breaks) {
    plot_name(a,y,col=color,xlab=levels(a),ylab="y")
    title(main=txt, outer=TRUE)
    par(mar=c(4,4,2,2))
    par(oma=c(2,2,5,2))
}

} enter image description here

我要画的情节应该是这样的。

Answer 1

我不太确定我是否理解正确，但这给出了预期的情节，

plot_user1<-function(x,y,cut_breaks,plot_name,color) {
    if(plot_name=="boxplot") {
        plot_name <- boxplot
        txt <- "The conditional boxplot of y|x"
        }
    else if (plot_name == "histogram") {plot_name <- hist
        txt <- "The conditional histogram of y|x"
        }
    else if (plot_name == "scatter plot") {plot_name <- plot
        txt <- "The conditional scatter plot of y|x"
        }
    else {print("Errors: The plot_name is incorrect.")}

    a<-cut(x,cut_breaks)
    par(mfrow=c(1,cut_breaks))


    for (i in levels(a)) {

        plot_name(y[levels(a)==i],col=color,xlab=i,ylab="y")
        title(main=txt, outer=TRUE)
    
    }
}