我有這個這個ggplot與facet_grid功能：
set.seed(1)
df <- data.frame(xx = 1:10, x1 = rnorm(10), x2 = rnorm(10), x3 = rnorm(10), x4 = rnorm(10), x5 = rnorm(10), x6 = rnorm(10), x7 = rnorm(10), x8 = rnorm(10), x9 = rnorm(10), x10 = rnorm(10), x11 = rnorm(10), x12 = rnorm(10))
library(dplyr)
library(tidyr)
library(ggplot2)
df %>%
pivot_longer(-xx) %>%
mutate(id = as.numeric(gsub("x", "", name))) %>%
arrange(id, xx) %>%
select(-id) %>%
mutate(sd = rep(rep(c(sd = 1, sd = 3, sd = 5, sd = 10), each = 10), each = 3),
phi = rep(rep(list(c(0.4, 0.4), c(0.45, 0.45), c(0.35, 0.6)), each = 10), 4)) %>%
mutate(sd = factor(sd, levels = sd, labels = paste("sd =", sd)),
phi = factor(phi, levels = phi, labels = gsub("c", "", paste("\U03D5 =", phi)))) %>%
ggplot(aes(x = xx, y = value))
geom_line()
geom_point()
scale_y_continuous(expand = c(0.0, 0.00))
labs(x = "Time", y = "Series")
facet_grid(sd ~ phi, scales = "free_y")
theme_bw()
為這個問題提供了一個令人滿意的答案。
我想要的是
我想增加（或自定義）右側的標簽 sd = c(sd = 1, sd = 3, sd = 5, sd = 10) 和頂部的標簽 phi = c(0.4, 0.4), c( 0.45, 0.45), c(0.35, 0.6)) 的曲線。還有，如何讓他們大膽。
uj5u.com熱心網友回復：
最簡單的方法是：
previous_code_blocks
theme(strip.text.x = element_text(size = 10, face = "bold"),
strip.text.y = element_text(size = 10, face = "bold"))
您可以在此處使用通常的 element_text() args 進行自定義，更改字體系列和其他諸如 hjust、vjust 等內容。
如果您希望在未來對貼標機進行更多控制，或者進行更高級的定制，您可以在以下位置找到檔案：https : //ggplot2.tidyverse.org/reference/labeller.html
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/358864.html
上一篇：多列資訊ggploty軸