ฉันพยายามที่จะสร้างfacet_multi_col()ฟังก์ชั่นคล้ายกับfacet_col()ฟังก์ชั่นในggforce- ที่ช่วยให้รูปแบบ facet กับอาร์กิวเมนต์พื้นที่ (ซึ่งไม่สามารถใช้ได้facet_wrap()) - แต่มากกว่าหลายคอลัมน์ ดังในพล็อตสุดท้ายด้านล่าง (สร้างด้วยgrid.arrange()) ฉันไม่ต้องการให้ facets จัดแนวข้ามแถวอย่างเหมาะสมเนื่องจากความสูงในแต่ละ facet จะแตกต่างกันไปตามyตัวแปรหมวดหมู่ที่ฉันต้องการใช้
ผมกำลังหาดีออกจากความลึกของฉันกับggprotoที่มีการอ่านนามสกุลคู่มือ ฉันคิดว่าวิธีที่ดีที่สุดคือการส่งโครงร่างเมทริกซ์เพื่อกำหนดตำแหน่งที่จะแบ่งคอลัมน์สำหรับชุดย่อยของข้อมูลที่สอดคล้องกันและสร้างfacet_col ใน ggforceเพื่อรวมพารามิเตอร์ช่องว่าง - ดูจุดสิ้นสุดของคำถาม
ภาพประกอบสั้น ๆ เกี่ยวกับตัวเลือกที่ไม่น่าพอใจของฉัน
ไม่มีแง่มุม
library(tidyverse)
library(gapminder)
global_tile <- ggplot(data = gapminder, mapping = aes(x = year, y = fct_rev(country), fill = lifeExp)) +
geom_tile()
global_tile
ฉันต้องการที่จะพังพล็อตตามทวีป ฉันไม่ต้องการร่างที่ยาวขนาดนี้
facet_wrap ()
global_tile +
facet_wrap(facets = "continent", scales = "free")
facet_wrap()ไม่มีอาร์กิวเมนต์ช่องว่างซึ่งหมายความว่าแผ่นกระเบื้องมีขนาดแตกต่างกันในแต่ละทวีปโดยใช้การcoord_equal()โยนข้อผิดพลาด
facet_col () ใน ggforce
library(ggforce)
global_tile +
facet_col(facets = "continent", scales = "free", space = "free", strip.position = "right") +
theme(strip.text.y = element_text(angle = 0))
ชอบแถบด้านข้าง spaceอาร์กิวเมนต์ตั้งค่าไทล์ทั้งหมดเป็นขนาดเดียวกัน ยังยาวเกินไปที่จะพอดีกับหน้า
grid.arrange () ใน gridExtra
เพิ่มคอลัมน์คอลัมน์ให้กับข้อมูลที่ควรวางแต่ละทวีป
d <- gapminder %>%
as_tibble() %>%
mutate(col = as.numeric(continent),
col = ifelse(test = continent == "Europe", yes = 2, no = col),
col = ifelse(test = continent == "Oceania", yes = 3, no = col))
head(d)
# # A tibble: 6 x 7
# country continent year lifeExp pop gdpPercap col
# <fct> <fct> <int> <dbl> <int> <dbl> <dbl>
# 1 Afghanistan Asia 1952 28.8 8425333 779. 3
# 2 Afghanistan Asia 1957 30.3 9240934 821. 3
# 3 Afghanistan Asia 1962 32.0 10267083 853. 3
# 4 Afghanistan Asia 1967 34.0 11537966 836. 3
# 5 Afghanistan Asia 1972 36.1 13079460 740. 3
# 6 Afghanistan Asia 1977 38.4 14880372 786. 3
tail(d)
# # A tibble: 6 x 7
# country continent year lifeExp pop gdpPercap col
# <fct> <fct> <int> <dbl> <int> <dbl> <dbl>
# 1 Zimbabwe Africa 1982 60.4 7636524 789. 1
# 2 Zimbabwe Africa 1987 62.4 9216418 706. 1
# 3 Zimbabwe Africa 1992 60.4 10704340 693. 1
# 4 Zimbabwe Africa 1997 46.8 11404948 792. 1
# 5 Zimbabwe Africa 2002 40.0 11926563 672. 1
# 6 Zimbabwe Africa 2007 43.5 12311143 470. 1
ใช้facet_col()สำหรับการลงจุดสำหรับแต่ละคอลัมน์
g <- list()
for(i in unique(d$col)){
g[[i]] <- d %>%
filter(col == i) %>%
ggplot(mapping = aes(x = year, y = fct_rev(country), fill = lifeExp)) +
geom_tile() +
facet_col(facets = "continent", scales = "free_y", space = "free", strip.position = "right") +
theme(strip.text.y = element_text(angle = 0)) +
# aviod legends in every column
guides(fill = FALSE) +
labs(x = "", y = "")
}
สร้างตำนานใช้get_legend()ในcowplot
library(cowplot)
gg <- ggplot(data = d, mapping = aes(x = year, y = country, fill = lifeExp)) +
geom_tile()
leg <- get_legend(gg)
สร้างเมทริกซ์เลย์เอาต์ที่มีความสูงตามจำนวนประเทศในแต่ละคอลัมน์
m <-
d %>%
group_by(col) %>%
summarise(row = n_distinct(country)) %>%
rowwise() %>%
mutate(row = paste(1:row, collapse = ",")) %>%
separate_rows(row) %>%
mutate(row = as.numeric(row),
col = col,
p = col) %>%
xtabs(formula = p ~ row + col) %>%
cbind(max(d$col) + 1) %>%
ifelse(. == 0, NA, .)
head(m)
# 1 2 3
# 1 1 2 3 4
# 2 1 2 3 4
# 3 1 2 3 4
# 4 1 2 3 4
# 5 1 2 3 4
# 6 1 2 3 4
tail(m)
# 1 2 3
# 50 1 2 NA 4
# 51 1 2 NA 4
# 52 1 2 NA 4
# 53 NA 2 NA 4
# 54 NA 2 NA 4
# 55 NA 2 NA 4
นำgและlegร่วมกันโดยใช้grid.arrange()ในgridExtra
library(gridExtra)
grid.arrange(g[[1]], g[[2]], g[[3]], leg, layout_matrix = m, widths=c(0.32, 0.32, 0.32, 0.06))
นี่เป็นสิ่งที่ฉันเกือบจะตามหลัง แต่ฉันไม่พอใจเหมือนกัน) ก. กระเบื้องในคอลัมน์ต่าง ๆ มีความกว้างต่างกันเนื่องจากความยาวของประเทศที่ยาวที่สุดและชื่อทวีปไม่เท่ากันและ b) รหัสจำนวนมากที่ต้องถูก tweaked เวลาที่ฉันต้องการที่จะทำให้พล็อตแบบนี้ - กับข้อมูลอื่น ๆ ที่ฉันต้องการที่จะจัดให้แง่มุมตามภูมิภาคเช่น "ยุโรปตะวันตก" มากกว่าทวีปหรือจำนวนของการเปลี่ยนแปลงประเทศ - ไม่มีประเทศเอเชียกลางในgapminderข้อมูล
ความก้าวหน้าในการสร้างฟังก์ชั่น facet_multi_cols ()
ฉันต้องการส่งเมทริกซ์โครงร่างไปยังฟังก์ชัน facet โดยที่เมทริกซ์จะอ้างถึงแต่ละแง่มุมจากนั้นฟังก์ชันจะสามารถคำนวณความสูงตามจำนวนช่องว่างในแต่ละแผง สำหรับตัวอย่างข้างต้นเมทริกซ์จะเป็น:
my_layout <- matrix(c(1, NA, 2, 3, 4, 5), nrow = 2)
my_layout
# [,1] [,2] [,3]
# [1,] 1 2 4
# [2,] NA 3 5
ดังที่ได้กล่าวมาแล้วฉันได้ปรับตัวจากโค้ดในfacet_col()เพื่อพยายามสร้างfacet_multi_col()ฟังก์ชั่น ฉันได้เพิ่มlayoutอาร์กิวเมนต์เพื่อให้เมทริกซ์เช่นmy_layoutด้านบนมีแนวคิดว่าตัวอย่างเช่นระดับที่สี่และห้าของตัวแปรที่กำหนดให้กับfacetsอาร์กิวเมนต์ถูกพล็อตในคอลัมน์ที่สาม
facet_multi_col <- function(facets, layout, scales = "fixed", space = "fixed",
shrink = TRUE, labeller = "label_value",
drop = TRUE, strip.position = 'top') {
# add space argument as in facet_col
space <- match.arg(space, c('free', 'fixed'))
facet <- facet_wrap(facets, col = col, dir = dir, scales = scales, shrink = shrink, labeller = labeller, drop = drop, strip.position = strip.position)
params <- facet$params
params <- facet$layout
params$space_free <- space == 'free'
ggproto(NULL, FacetMultiCols, shrink = shrink, params = params)
}
FacetMultiCols <- ggproto('FacetMultiCols', FacetWrap,
# from FacetCols to allow for space argument to work
draw_panels = function(self, panels, layout, x_scales, y_scales, ranges, coord, data, theme, params) {
combined <- ggproto_parent(FacetWrap, self)$draw_panels(panels, layout, x_scales, y_scales, ranges, coord, data, theme, params)
if (params$space_free) {
widths <- vapply(layout$PANEL, function(i) diff(ranges[[i]]$x.range), numeric(1))
panel_widths <- unit(widths, "null")
combined$widths[panel_cols(combined)$l] <- panel_widths
}
combined
}
# adapt FacetWrap layout to set position on panels following the matrix given to layout in facet_multi_col().
compute_layout = function(self, panels, layout, x_scales, y_scales, ranges, coord, data, theme, params) {
layout <- ggproto_parent(FacetWrap, self)$compute_layout(panels, layout, x_scales, y_scales, ranges, coord, data, theme, params)
# ???
)
ฉันคิดว่าฉันต้องเขียนอะไรบางอย่างเพื่อcompute_layoutส่วน แต่ฉันพยายามดิ้นรนเพื่อหาวิธีการทำเช่นนี้
grid.arrangeตัวอย่างด้านบน .. เว้นแต่คุณจะหมายถึงบางสิ่งที่แตกต่างออกไป? ฉันคิดว่าปัญหาเดียวกันนี้จะเกิดขึ้นกับความยาวฉลากที่แตกต่างกันในแต่ละคอลัมน์หรือไม่
grid.arrangeแต่รูปแบบแพคเกจเหล่านั้นอาจช่วยให้มีการจัดตำแหน่งที่ดีกว่า มันเป็นโพสต์ที่ยาวมาก ๆ ดังนั้นจึงยากที่จะติดตามทุกสิ่งที่คุณได้ลอง แฮ็คเล็ก ๆ น้อย ๆ แต่คุณอาจลองแบบอักษรอวกาศ / ใกล้เคียงกับแบบอักษรที่เว้นระยะอย่างสม่ำเสมอสำหรับฉลากดังนั้นความยาวของฉลากจึงสามารถคาดเดาได้มากขึ้น คุณยังสามารถวางป้ายกำกับด้วยช่องว่างเพื่อให้แน่ใจว่าข้อความนั้นใกล้เคียงกับความยาวเท่ากัน
