r - 在ggplot中绘制二维函数

Question

我想绘制一个带有两个参数的函数。到目前为止，我发现的最好的是 image 函数，但我很想找到一个更好的 3d 绘图或更好的 ggplot countour 绘图，如下所示:

x_seq = seq(1,1000)

y_seq = seq(1,5000)

z = outer(contributor_idx, size_estimate, function(x,y) log(y+1) + log(y+1)/log(x+1))

image(z)

Answer 1

plotly 对绘图表面有很好的支持(无论如何交互效果更好):

library(plotly)

df <- data.frame(x = seq(500),
                 y = seq(500))

z <- outer(df$x, df$y, function(x, y) log(y + 1) + log(y + 1) / log(x + 1))

plot_ly(df, x = ~x, y = ~y, z = ~z) %>% 
    add_surface()