在 Rstudio 中执行良好的图表在 Kaggle 上不起作用。为什么？

Question

我之前在 Rstudio 中运行过以下代码，没有任何问题。您可以在此处查看整个笔记本。

这是在 Kaggle 上不起作用的代码：

pie_type_user <- data.frame(rider_type = c("Member", "Casual"), 
                            values = c(2189031, 1537785))

ggplot(pie_type_user, aes(x = "", y = values, fill = rider_type)) +
    geom_bar(stat = "identity", width = 1) +
    coord_polar(theta = "y") +
    labs(fill = "Rider Type") +
    ggtitle("Rides Per Year") +
    theme_void() +
    geom_text(aes(label = scales::comma(values)), 
                  position = position_stack(vjust = 0.5))

这是我收到的消息：

ERROR while rich displaying an object: Error in grid.newpage(): 
    could not open file 'Rplot001.png'

Traceback:

    tryCatch(withCallingHandlers({
    . if (!mime %in% names(repr::mime2repr))
    . stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
    . rpr <- repr::mime2repr[mime]
    . if (is.null(rpr))
    . return(NULL)
    . prepare_content(is.raw(rpr), rpr)
    . }, error = error_handler), error = outer_handler)
    tryCatchList(expr, classes, parentenv, handlers)
    tryCatchOne(expr, names, parentenv, handlers[[1L]])
    doTryCatch(return(expr), name, parentenv, handler)
    withCallingHandlers({
    . if (!mime %in% names(repr::mime2repr))
    . stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
    . rpr <- repr::mime2repr[mime]
    . if (is.null(rpr))
    . return(NULL)
    . prepare_content(is.raw(rpr), rpr)
    . }, error = error_handler)
    repr::mime2repr[mime]
    repr_text.default(obj)
    paste(capture.output(print(obj)), collapse = "\n")
    capture.output(print(obj))
    evalVis(expr)
    withVisible(eval(expr, pf))
    eval(expr, pf)
    eval(expr, pf)
    print(obj)
    print.ggplot(obj)
    grid.newpage()

想法？有建议吗？

我还没有找到任何可以解决此问题的线程，我完全被难住了。

Answer 1

我遇到了同样的问题，刚刚找到了解决方案。

如果您使用 setwd() 设置新目录来读取 csv 文件，请记住将工作目录设置回默认一个一个setwd('/kaggle/working')

或者

请不要更改您的工作目录，只需从“../input”读取您的 csv 文件