Я пытаюсь создать трехмерный график куба с заштрихованным столбцом внутри (см. Рисунок).Это чтобы показать объединенный pdf в интервале следующей функции плотности соединения: f (x, y) = 1, где и x, и y находятся между 0 и 1. Я попробовал код ниже, но он дал мне ошибку 'NA не являютсяразрешено в подписанных заданиях '
x <- seq(1,1,length.out=100)
y <- seq(1,1,length.out=100)
df <-expand.grid(x=x,y=y)
df$z <- as.vector(outer(x,y,function(x,y){x*y}))
wireframe(z ~ x*y, data=df, scales=list(arrows=TRUE), zlab='f(x,y)', drape=FALSE)
Рисунок