我對使用 **ggtext** 的標簽有疑問，如果我使用 ě???? 或 ?ü? 等組合字符，element_markdown() 將在我的文本后面添加額外的空格/呈現空白。我的代碼如下所示：
library(ggplot2)
library(tidyverse)
library(ggtext)
df_x <- c(runif(6, min = 1, max = 2))
df_y <- c(rep("A", 3), rep("B", 3))
df_lab <- c("??ě?h P?óblém", "G?rm?n pr?b?m t??", as.character(1:4))
tibble(df_x, df_y, df_lab) %>%
ggplot(aes(x = df_x, y = df_y, fill = df_lab))
geom_bar(position = "stack", stat = "identity")
theme(legend.text = element_markdown())
我認為這是一個非常基本的問題，但找不到有關如何處理此問題的任何資訊。
圖片：
uj5u.com熱心網友回復：
您也可以system locale使用以下代碼更改您的。
Sys.setlocale("LC_CTYPE", "Czech")
示例代碼：
library(ggplot2)
library(tidyverse)
library(ggthemes)
Sys.setlocale("LC_CTYPE", "Czech")
tibble(df_x, df_y, df_lab) %>%
ggplot(aes(x = df_x, y = df_y, fill = df_lab))
geom_bar(position = "stack", stat = "identity")
theme_par()
labs(x="dfx",y="dfy")
theme(axis.text.x = element_text(hjust = 1, face="bold", size=12, color="black"),
axis.title.x = element_text(face="bold", size=16, color="black"),
axis.text.y = element_text(face="bold", size=12, color="black"),
axis.title.y = element_text(face="bold", size=16, color="black"),
strip.text = element_text(size=10, face="bold"),
plot.title = element_text(size=20, face="bold"),
legend.position = "top",
legend.title = element_blank(),
legend.text = element_text(color = "black", size = 16,face="bold"))
陰謀：
或legend在right旁邊
樣本資料：
df_x <- c(runif(6, min = 1, max = 2))
df_y <- c(rep("A", 3), rep("B", 3))
df_lab <- c("??ě?h P?óblém", "G?rm?n pr?b?m t??", as.character(1:4))
uj5u.com熱心網友回復：
當我結合ě和?時，輸出沒有問題。我將您的角色從 更改??ě?h P?óblém為和??ě?h P??blém的組合。輸出看起來還是不錯的。看看這段代碼和輸出：ě?
library(ggplot2)
library(tidyverse)
library(ggtext)
df_x <- c(runif(6, min = 1, max = 2))
df_y <- c(rep("A", 3), rep("B", 3))
df_lab <- c("??ě?h P??blém", "G?rm?n pr?b?m t??", as.character(1:4))
tibble(df_x, df_y, df_lab) %>%
ggplot(aes(x = df_x, y = df_y, fill = df_lab))
geom_bar(position = "stack", stat = "identity")
theme(legend.text = element_markdown())
輸出：
圖例顯示得很好。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/451545.html