代码之家 › 专栏 › 技术社区 › Doug Fir

ggplot with tryCatch:如果在表达式过程中出现错误,则希望使用空白绘图

ggplot2 r

Doug Fir · 技术社区 · 4 年前

x %>% dput
structure(list(date = structure(c(18782, 18783, 18784, 18785, 
18786, 18787, 18789, 18791, 18792, 18793, 18795, 18797, 18798, 
18799, 18801, 18803, 18805, 18806), class = "Date"), `Expired Trials` = c(3L, 
1L, 1L, 1L, 3L, 3L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L), `Trial Sign Ups` = c(3L, 1L, 1L, 2L, 3L, 4L, 1L, 1L, 1L, 
1L, 2L, 1L, 3L, 2L, 2L, 1L, 1L, 1L), `Total Site Conversions` = c(3, 
1, 1, 2, 3, 4, 1, 1, 1, 1, 2, 1, 3, 2, 2, 1, 1, 1), `Site Conversion Rate` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_), `Trial to Paid Conversion Rate` = c(NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
NA_real_, NA_real_, NA_real_)), row.names = c(NA, -18L), class = c("tbl_df", 
"tbl", "data.frame"))

x %>% 
     ggplot(aes(date, Sessions)) +
     geom_col(na.rm = T) +
     geom_line(aes(y = `Site Conversion Rate`), na.rm = T)
Error in FUN(X[[i]], ...) : object 'Sessions' not found

尝试:

tryCatch(expr = {x %>% 
    ggplot(aes(date, Sessions)) +
    geom_col(na.rm = T) +
    geom_line(aes(y = `Site Conversion Rate`), na.rm = T)
}, 
error = function(e) {message(''); print(e)},
finally = {ggplot() + theme_void()})

但是,这还是吐出了错误,想要/期待一个空白的情节。

我该怎么做?

1 回复 | 直到 4 年前

akrun 4 年前

if/else 带的表达式 all i、 e.我们只策划 if

nm1 <- c("date", "Sessions", "Site Conversion Rate")
if(!all(nm1 %in% names(x))) {
     message("Not all columns are found")
     ggplot()
    } else {x %>% 
     ggplot(aes(date, Sessions)) +
     geom_col(na.rm = TRUE) +
     geom_line(aes(y = `Site Conversion Rate`), na.rm = TRUE)}

或者另一个选择是 possibly 指定 otherwise

library(purrr)
f1 <- function(x) {
  p1 <- x %>% 
      ggplot(aes(date, Sessions)) +
      geom_col(na.rm = TRUE) +
      geom_line(aes(y = `Site Conversion Rate`), na.rm = TRUE)
  print(p1)
 
 }
f1p <- possibly(f1, otherwise = ggplot())

f1p(x)

-输出

tryCatch

tryCatch(expr = {print(x %>% 
    ggplot(aes(date, Sessions)) +
    geom_col(na.rm = T) +
    geom_line(aes(y = `Site Conversion Rate`), na.rm = TRUE))
}, 
error = function(e) {message(''); print(e)},
finally = {
       ggplot() + 
          theme_void()
})
<simpleError in FUN(X[[i]], ...): object 'Sessions' not found>

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

4 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

4 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

5 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

5 月前

JBurns · ggplot2 x轴,其中许多天中的每一天都有许多小时。有没有办法将x轴上的日期跨越当天的小时?

5 月前

Jaken · 使用scale_*_steps进行合并时避免重新缩放

5 月前

a_todd12 · ggplot相关矩阵中的颜色完美相关图块

5 月前

a_todd12 · 修复使用带有ggplot的ifelse颜色填充时的图例

5 月前

Victoria Johnson · 如何删除R ggplot中的重复图例

5 月前

mmoore · 创建具有重叠特征的ggplot2地图并配置图例

5 月前