[英]`dplyr::full_join()` doesn't work with list columns
我試圖比較R包ggstatsplot
給定函數的兩個版本的ggstatsplot
。 我已經能夠在tibbles中提取形式,但我似乎無法讓這兩個表加入。 dplyr::full_join()
產生一個錯誤,但它不是很清楚它需要什么。 非常感謝有關我如何加入這兩個數據幀的任何反饋。
# setup
set.seed(123)
library(tidyverse)
library(ggstatsplot)
# formals for the primary version of the function
(df_primary <- tibble::enframe(formals(ggstatsplot::gghistostats)) %>%
dplyr::rename(.data = ., primary = value))
#> # A tibble: 41 x 2
#> name primary
#> <chr> <list>
#> 1 data <NULL>
#> 2 x <missing>
#> 3 binwidth <NULL>
#> 4 bar.measure <chr [1]>
#> 5 xlab <NULL>
#> 6 title <NULL>
#> 7 subtitle <NULL>
#> 8 caption <NULL>
#> 9 type <chr [1]>
#> 10 test.value <dbl [1]>
#> # ... with 31 more rows
# formals for the grouped version of the function
(df_grouped <- tibble::enframe(formals(ggstatsplot::grouped_gghistostats)) %>%
dplyr::rename(.data = ., grouped = value))
#> # A tibble: 43 x 2
#> name grouped
#> <chr> <list>
#> 1 data <missing>
#> 2 x <missing>
#> 3 grouping.var <missing>
#> 4 title.prefix <NULL>
#> 5 binwidth <NULL>
#> 6 bar.measure <chr [1]>
#> 7 xlab <NULL>
#> 8 subtitle <NULL>
#> 9 caption <NULL>
#> 10 type <chr [1]>
#> # ... with 33 more rows
# joining the two dataframes name
dplyr::full_join(
x = df_primary,
y = df_grouped,
by = "name"
)
#> Error: type not supported
traceback()
#> 4: stop(list(message = "type not supported", call = NULL, cppstack = NULL))
#> 3: full_join_impl(x, y, by_x, by_y, aux_x, aux_y, na_matches, environment())
#> 2: full_join.tbl_df(x = tibble::enframe(formals(ggstatsplot::gghistostats)) %>%
#> dplyr::rename(.data = ., primary = value), y = tibble::enframe(formals(ggstatsplot::grouped_gghistostats)) %>%
#> dplyr::rename(.data = ., grouped = value), by = "name")
#> 1: dplyr::full_join(x = tibble::enframe(formals(ggstatsplot::gghistostats)) %>%
#> dplyr::rename(.data = ., primary = value), y = tibble::enframe(formals(ggstatsplot::grouped_gghistostats)) %>%
#> dplyr::rename(.data = ., grouped = value), by = "name")
由reprex包創建於2019-01-25(v0.2.1)
似乎不支持dotted paired
類型。 有一件事,我們可以將它轉換為普通list
,然后執行full_join
formals(ggstatsplot::gghistostats) %>%
as.list %>%
tibble::enframe(value = 'primary') %>%
full_join(formals(ggstatsplot::grouped_gghistostats) %>%
as.list %>%
tibble::enframe(value = 'grouped'))
# A tibble: 40 x 3
# name primary grouped
# <chr> <list> <list>
# 1 data <NULL> <missing>
# 2 x <missing> <missing>
# 3 binwidth <NULL> <NULL>
# 4 bar.measure <chr [1]> <chr [1]>
# 5 xlab <NULL> <NULL>
# 6 title <NULL> <NULL>
# 7 subtitle <NULL> <NULL>
# 8 caption <NULL> <NULL>
# 9 type <chr [1]> <chr [1]>
#10 test.value <dbl [1]> <dbl [1]>
# … with 30 more rows
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.