PROSAGA码农传奇-模型可视化-ggplot：如何更改构面标签？

16 条回复

0#
回复此人
木木 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 贴标机功能定义 <code> variable, value </code> 因为论据对我不起作用。此外，如果你想使用表达式，你需要使用lapply而不能简单地使用 <code> arr[val] </code> ，因为函数的参数是data.frame。 </p> <P> 这段代码确实有效： </p> <pre> <code> libary(latex2exp) library(ggplot2) arr <- list('virginica'=TeX("x_1"), "versicolor"=TeX("x_2"), "setosa"=TeX("x_3")) mylabel <- function(val) { return(lapply(val, function(x) arr[x])) } ggplot(iris, aes(x=Sepal.Length, y=Sepal.Width)) + geom_line() + facet_wrap(~Species, labeller=mylabel) </code> </pre> </DIV>

编辑
1#
回复此人
北极星微控 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 请注意，如果ggplot显示的因子少于变量实际包含的因素，则此解决方案将无法正常工作（如果您进行了子集化，可能会发生这种情况）： </p> <pre> <code> library(ggplot2) labeli <- function(variable, value){ names_li <- list("versicolor"="versi", "virginica"="virg") return(names_li[value]) } dat <- subset(iris,Species!="setosa") ggplot(dat, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ ., labeller=labeli) </code> </pre> <P> 一个简单的解决方案（除了在names_li中添加所有未使用的因子，这可能是单调乏味的）是使用droplevels（）删除未使用的因子，无论是在原始数据集中还是在labbeler函数中，请参阅： </p> <pre> <code> labeli2 <- function(variable, value){ value <- droplevels(value) names_li <- list("versicolor"="versi", "virginica"="virg") return(names_li[value]) } dat <- subset(iris,Species!="setosa") ggplot(dat, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ ., labeller=labeli2) </code> </pre> </DIV>

编辑
2#
回复此人
与之 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我有另一种方法来实现相同的目标，而无需更改基础数据： </p> <pre> <code> ggplot(transform(survey, survey = factor(survey, labels = c("Hosp 1", "Hosp 2", "Hosp 3", "Hosp 4"))), aes(x = age)) + stat_bin(aes(n = nrow(h3),y=..count../n), binwidth = 10) + scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2)) + facet_grid(hospital ~ .) + opts(panel.background = theme_blank()) </code> </pre> <P> 我上面所做的是更改原始数据框中因子的标签，这是与原始代码相比的唯一区别。 </p> </DIV>

编辑
3#
回复此人
取之 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我认为所有其他解决方案对此非常有帮助，但还有另一种方法。 </p> <P> 我假设： </p> <UL> <LI> 你已经安装了 <code> dplyr </code> 包装，方便 <code> mutate </code> 命令，和 </LI> <LI> <P> 您的数据集已命名 <code> survey </code> 。 </p> <P> 调查％＆gt;％变异（Hosp1 = Hospital1，Hosp2 = Hospital2，........） </p> </LI> </UL> <P> 此命令可帮助您重命名列，但保留所有其他列。 </p> <P> 然后做同样的事情 <code> facet_wrap </code> 你现在好了 </p> </DIV>

编辑
4#
回复此人
無口君 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这个解决方案非常接近@domi所拥有的，但旨在通过获取前4个字母和最后一个数字来缩短名称。 </p> <pre> <code> library(ggplot2) # simulate some data xy <- data.frame(hospital = rep(paste("Hospital #", 1:3, sep = ""), each = 30), value = rnorm(90)) shortener <- function(string) { abb <- substr(string, start = 1, stop = 4) # fetch only first 4 strings num <- gsub("^.*(\\d{1})$", "\\1", string) # using regular expression, fetch last number out <- paste(abb, num) # put everything together out } ggplot(xy, aes(x = value)) + theme_bw() + geom_histogram() + facet_grid(hospital ~ ., labeller = labeller(hospital = shortener)) </code> </pre> <P> <a href="https://i.stack.imgur.com/MttJJ.png" rel="noreferrer"> <img src =“https://i.stack.imgur.com/MttJJ.png”alt =“在此处输入图片说明”/> </A> </p> </DIV>

编辑
5#
回复此人
昵称不能为空 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 都 <code> facet_wrap </code> 和 <code> facet_grid </code> 也接受来自的输入 <code> ifelse </code> 作为一个论点。因此，如果用于分面的变量是合乎逻辑的，那么解决方案非常简单： </p> <pre> <code> facet_wrap(~ifelse(variable, "Label if true", "Label if false")) </code> </pre> <P> 如果变量有更多类别，那么 <code> ifelse </code> 声明需要 <a href="https://stackoverflow.com/a/18016872/6219179"> 嵌套 </A> 。 </p> <P> 作为一个副作用，这也允许创建在其中面对的组 <code> ggplot </code> 呼叫。 </p> </DIV>

编辑
6#
回复此人
昵称为空呵呵 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 如果你有两个方面 <code> hospital </code> 和 <code> room </code> 但是想重命名只有一个，你可以使用： </p> <pre> <code> facet_grid( hospital ~ room, labeller = labeller(hospital = as_labeller(hospital_names))) </code> </pre> <P> 要使用基于矢量的方法重命名两个方面（如naught101的答案），您可以： </p> <pre> <code> facet_grid( hospital ~ room, labeller = labeller(hospital = as_labeller(hospital_names), room = as_labeller(room_names))) </code> </pre> </DIV>

编辑
7#
回复此人
VIP | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这对我有用。 </p> <P> 定义一个因素： </p> <pre> <code> hospitals.factor<- factor( c("H0","H1","H2") ) </code> </pre> <P> 和使用，在 <code> ggplot() </code> ： </p> <pre> <code> facet_grid( hospitals.factor[hospital] ~ . ) </code> </pre> </DIV>

编辑
8#
回复此人
polo | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 只是扩大了naught101的答案 - 信用归他所有 </p> <pre> <code> plot_labeller <- function(variable,value, facetVar1='<name-of-1st-facetting-var>', var1NamesMapping=<pass-list-of-name-mappings-here>, facetVar2='', var2NamesMapping=list() ) { #print (variable) #print (value) if (variable==facetVar1) { value <- as.character(value) return(var1NamesMapping[value]) } else if (variable==facetVar2) { value <- as.character(value) return(var2NamesMapping[value]) } else { return(as.character(value)) } } </code> </pre> <P> 您需要做的是创建一个具有名称到名称映射的列表 </p> <pre> <code> clusteringDistance_names <- list( '100'="100", '200'="200", '300'="300", '400'="400", '600'="500" ) </code> </pre> <P> 并重新定义 <code> plot_labeller() </code> 使用新的默认参数： </p> <pre> <code> plot_labeller <- function(variable,value, facetVar1='clusteringDistance', var1NamesMapping=clusteringDistance_names, facetVar2='', var1NamesMapping=list() ) </code> </pre> <P> 然后： </p> <pre> <code> ggplot() + facet_grid(clusteringDistance ~ . , labeller=plot_labeller) </code> </pre> <P> 或者，您可以为要拥有的每个标签更改创建专用功能。 </p> </DIV>

编辑
9#
回复此人
Colin | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你有没有尝试改变你的具体水平 <code> Hospital </code> 向量？ </p> <pre> <code> levels(survey$hospital)[levels(survey$hospital) == "Hospital #1"] <- "Hosp 1" levels(survey$hospital)[levels(survey$hospital) == "Hospital #2"] <- "Hosp 2" levels(survey$hospital)[levels(survey$hospital) == "Hospital #3"] <- "Hosp 3" </code> </pre> </DIV>

编辑
10#
回复此人
青阳 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这是一个避免编辑数据的解决方案： </p> <P> 说你的情节是由 <code> group </code> 数据框的一部分，具有级别 <code> control, test1, test2 </code> ，然后创建一个由这些值命名的列表： </p> <pre> <code> hospital_names <- list( 'Hospital#1'="Some Hospital", 'Hospital#2'="Another Hospital", 'Hospital#3'="Hospital Number 3", 'Hospital#4'="The Other Hospital" ) </code> </pre> <P> 然后创建一个'贴标机'功能，并将其推入facet_grid调用： </p> <pre> <code> hospital_labeller <- function(variable,value){ return(hospital_names[value]) } ggplot(survey,aes(x=age)) + stat_bin(aes(n=nrow(h3),y=..count../n), binwidth=10) + facet_grid(hospital ~ ., labeller=hospital_labeller) ... </code> </pre> <P> 这使用数据框的级别来索引hospital_names列表，返回列表值（正确的名称）。 </p> <HR /> <P> 请注意，这仅适用于只有一个分面变量的情况。如果您有两个方面，那么您的贴标机功能需要为每个方面返回不同的名称向量。您可以使用以下内容执行此操作： </p> <pre> <code> plot_labeller <- function(variable,value){ if (variable=='facet1') { return(facet1_names[value]) } else { return(facet2_names[value]) } } </code> </pre> <P> 哪里 <code> facet1_names </code> 和 <code> facet2_names </code> 是由facet索引名称（'Hostpital＃1'等）索引的预定义名称列表。 </p> <HR /> <P> 的<strong> 编辑： </强> 如果传递标签程序不知道的变量/值组合，则上述方法将失败。您可以为未知变量添加故障保护，如下所示： </p> <pre> <code> plot_labeller <- function(variable,value){ if (variable=='facet1') { return(facet1_names[value]) } else if (variable=='facet2') { return(facet2_names[value]) } else { return(as.character(value)) } } </code> </pre> <HR /> <P> 答案改编自 <a href="https://stackoverflow.com/questions/2893005/how-to-change-strip-text-labels-in-ggplot-with-facet-and-margin-true"> 如何使用facet和margin = TRUE更改ggplot中的strip.text标签 </A> </p> <HR /> <P> <德尔> 编辑：的<strong> 警告 </强> ：如果你使用这种方法来分辨 <EM> 字符 </EM> 列，您可能会收到不正确的标签。看到 <a href="https://github.com/hadley/ggplot2/issues/1070" rel="noreferrer"> 这个错误报告 </A> 。 </德尔> 修复了最新版本的ggplot2。 </p> </DIV>

编辑
11#
回复此人
尼拉。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在不修改基础数据的情况下更改的EASIEST方法是： </p> <P> 1）使用。创建一个对象 <code> as_labeller </code> 功能的<strong> 为每个默认值添加后退刻度标记 </强> ： </p> <pre> <code> hum.names <- as_labeller(c(`50` = "RH% 50", `60` = "RH% 60",`70` = "RH% 70", `80` = "RH% 80",`90` = "RH% 90", `100` = "RH% 100")) #Necesarry to put RH% into the facet labels </code> </pre> <P> 2）我们加入GGplot： </p> <pre> <code> ggplot(dataframe, aes(x=Temperature.C,y=fit))+geom_line()+ facet_wrap(~Humidity.RH., nrow=2,labeller=hum.names) </code> </pre> </DIV>

编辑
12#
回复此人
⑩Ⅵ嵗Ｄ夨憶 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 使用以下内容更改基础因子级别名称： </p> <pre> <code> # Using the Iris data > i <- iris > levels(i$Species) [1] "setosa" "versicolor" "virginica" > levels(i$Species) <- c("S", "Ve", "Vi") > ggplot(i, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ .) </code> </pre> </DIV>

编辑
13#
回复此人
梦中会飞的鱼 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 由于我还没有被允许对帖子发表评论，所以我将其作为附录单独发布 <a href="https://stackoverflow.com/a/3473306"> 文斯的回答 </A> 和 <a href="https://stackoverflow.com/a/47896753"> son520804的回答 </A> 。信用归他们所有。 </p> <BLOCKQUOTE> <P> Son520804： </p> <P> 使用Iris数据： </p> <P> 我假设： <BR/> 您已经安装了dplyr软件包，它具有方便的mutate命令，以及您的数据集名为survey。 <code> survey %>% mutate(Hosp1 = Hospital1, Hosp2 = Hospital2,........) </code> 此命令可帮助您重命名列，但保留所有其他列。然后做同样的facet_wrap，你现在很好。 </p> </BLOCKQUOTE> <P> 使用Vince的虹膜示例和son520804的部分代码，我使用mutate函数执行此操作，并在不触及原始数据集的情况下实现了简单的解决方案。诀窍是创建一个替代名称向量并在管道内使用mutate（）来临时更正构面名称： </p> <pre> <code> i <- iris levels(i$Species) [1] "setosa" "versicolor" "virginica" new_names <- c( rep("Bristle-pointed iris", 50), rep("Poison flag iris",50), rep("Virginia iris", 50)) i %>% mutate(Species=new_names) %>% ggplot(aes(Petal.Length))+ stat_bin()+ facet_grid(Species ~ .) </code> </pre> <P> 在此示例中，您可以看到i $ Species的级别暂时更改为new_names向量中包含的相应公用名。该行包含 </p> <pre> <code> mutate(Species=new_names) %>% </code> </pre> <P> 可以轻松删除以显示原始命名。 </p> <P> 的<strong> 提醒： </强> 如果未正确设置new_name向量，这可能很容易在名称中引入错误。使用单独的函数替换变量字符串可能会更清晰。请记住，new_name向量可能需要以不同的方式重复以匹配原始数据集的顺序。请双重检查这是否正确实现。 </p> </DIV>

编辑
14#
回复此人
LOGO | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这是我如何做到的 <code> facet_grid(yfacet~xfacet) </code> 使用ggplot2，版本2.2.1： </p> <pre> <code> facet_grid( yfacet~xfacet, labeller = labeller( yfacet = c(`0` = "an y label", `1` = "another y label"), xfacet = c(`10` = "an x label", `20` = "another x label") ) ) </code> </pre> <P> 请注意，这不包含调用 <code> as_labeller() </code> - 我挣扎了一段时间的东西。 </p> <P> 这种方法的灵感来自帮助页面上的最后一个示例 <a href="http://ggplot2.tidyverse.org/reference/as_labeller.html" rel="noreferrer"> 强制使用贴标机功能 </A> 。 </p> </DIV>

编辑

登录后才能参与评论