R의 facet_wrap ggplot에서 대괄호 위에 여러 제목 / 텍스트 추가

debugcn 에 게시 Dev

심전도

괄호 위에 "배"와 "애플"을 텍스트로 추가하고 싶습니다. 여러 제목, 동일한 크기 및 동일한 위치로 추가하는 방법을 찾을 수 없습니다.

df <- data.frame('fruit'=c("Apple", "Apple", "Apple", "Apple", "Pear", "Pear"),
                'color'=c("Red", "Red", "Green","Green","Green","Green"), fruitcol=c(rep("AppleRed",2), rep("AppleGreen",2),rep("PearGreen",2)), 'percentage'= c(11,19,34,23,27, 16))

df$fruitcol <- factor(df$fruitcol,  levels = c("AppleRed", "AppleGreen", "PearGreen"),labels = c( "Red", "Green", "Green_"))


the_plot<- ggplot(data=df, aes(x=fruit, y=percentage)) +
geom_bar(stat="identity") + facet_wrap(~fruitcol, labeller = label_parsed) + labs(title = "Pear", subtitle="Apple")+ theme(plot.subtitle=element_text(size=18, hjust=0.5, face="italic", color="black"))+
scale_x_discrete("",breaks=c(.5,2.5),labels=c("Low types","High types") ) +
theme(axis.ticks = element_blank(), axis.ticks.length = unit(.85, "cm"), strip.background = element_rect(
     color="black", fill="#FC4E07", size=1.5, linetype="solid"))

library(pBrackets)
the_plot
grid.locator(unit="native") 
top_y <- 40
grid.brackets(55, top_y,   360, top_y, lwd=2, col="black")
grid.brackets(370, top_y,  518, top_y, lwd=2, col="black")

Tjebo

나는 teunbrand의 중첩 패싯 옵션을 선호하지만 여기에 해킹이 있습니다.

매우 자주 플롯 패널 외부에 주석을 달 수 있습니다.

레이블에 대해 합리적인 테마 여백과 y- 값을 수동으로 선택해야합니다.

나는 또한 내가 생각 df이 기본 기능이 될 것이라고 오랫동안 착각했다는 것을 알게되어 기쁩니다 . 나는 마침내 사람들이 데이터 프레임에 이것을 사용하지 않도록 설득하려는 내 탐구를 포기할 수 있습니다. 감사합니다 teunbrand

library(tidyverse)
library(ggtext)
library(grid)
library(pBrackets)

df <- data.frame('fruit'=c("Apple", "Apple", "Apple", "Apple", "Pear", "Pear"),
                 'color'=c("Red", "Red", "Green","Green","Green","Green"), fruitcol=c(rep("AppleRed",2), rep("AppleGreen",2),rep("PearGreen",2)), 'percentage'= c(11,19,34,23,27, 16))

df$fruitcol <- factor(df$fruitcol,  levels = c("AppleRed", "AppleGreen", "PearGreen"), labels = c( "Red", "Green", "Green_"))

df$title_lab <- rep(c("Pear", "italic('Apple')",""), each = 2)

mypercent <- 
  df %>%
  group_by(fruit, color) %>%
  summarise(sum_perc = sum(percentage))
maxperc <- max(mypercent$sum_perc)
the_plot<-
  ggplot(data = df, aes(x=fruit, y=percentage)) +
  geom_col() +
  geom_text(aes(x = 1, y = maxperc + 15, label = title_lab), parse = TRUE)+
  facet_wrap(~ fruitcol, labeller = label_parsed) +
  scale_x_discrete(NULL, breaks=c(.5,2.5), labels=c("Low types","High types") ) +
  coord_cartesian(clip = "off", ylim = c(NA, maxperc)) +
  theme(axis.ticks = element_blank(), 
        strip.background = element_rect(
    color="black", fill="#FC4E07", size=1.5, linetype="solid"),
    plot.margin = margin(t = .5, unit = "in")) 


the_plot
grid.locator(unit="native") 
top_y <- 40
grid.brackets(55, top_y,   360, top_y, lwd=2, col="black")
grid.brackets(370, top_y,  518, top_y, lwd=2, col="black")

이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.

침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제

에서 수정2021-04-8

몇 마디 만하겠습니다

0리뷰

로그인참여 후 검토

Related 관련 기사

기사

R의 facet_wrap ggplot에서 대괄호 위에 여러 제목 / 텍스트 추가

R의 facet_wrap ggplot에서 대괄호 위에 여러 제목 / 텍스트 추가

ggplot2 facet_wrap의 열에서 여러 패싯 스트립 결합

ggplot facet_wrap 텍스트에 수학 기호를 추가하는 방법은 무엇입니까?

중괄호 안의 텍스트에서 여러 일치 항목 가져 오기

R에서 여러 data.frame의 facet_wrap을 사용하는 ggplot?

`facet_wrap`의 각 열에 대한 테두리와 제목을 만듭니다.

대괄호 안의 텍스트를 포함하여 문자열에서 대괄호 제거

제목 값을 사용하여 텍스트 파일에 열 추가 (파일의 여러 제목)

대괄호에서 텍스트 추출

PHP에서 대괄호 사이의 특정 텍스트 추출

facet_wrap으로 만든 플롯에 별도의 ggplot 제목을 추가하려면 어떻게해야합니까?

메모장 ++에서 대괄호 사이의 텍스트 삭제

여러 목록 항목에 대한 클래스 추가 / 제거

파이썬에서 여러 괄호 안의 텍스트 검색

숭고한 텍스트 2에서 대괄호 (괄호)의 스마트 들여 쓰기

텍스트 파일의 각 줄에서 여러 마킹 그룹을 사용하여 대괄호를 제거하는 방법은 무엇입니까?

stat_fit_glance의 facet_wrap 텍스트 라벨링 문제

R에서 여러 위치 지점을 ggplot하기 위해 facet_wrap을 사용하는 방법은 무엇입니까?

facet_wrap 플롯에 다른 ggplot 추가 / 주석

R : 등호가 포함 된 문자열로 facet_wrap 제목의 레이블을 다시 지정합니다.

R : 등호가 포함 된 문자열로 facet_wrap 제목의 레이블을 다시 지정합니다.

안드로이드의 목록보기에 여러 텍스트보기 추가

여러 변수에 대해 유의성 별표 대 제어 그룹을 추가하기위한 R의 ggplot

특정 단어가있는 경우 대괄호에서 텍스트 제거

facet_wrap에 대한 쌍 데이터

여러 디렉토리에서 괄호 및 대괄호 제거

ggplot2의 facet_wrap에 '(all)'패싯을 쉽게 추가 하시겠습니까?

여러 변수를 사용하여 ggplot에서 범례의 텍스트 및 제목을 변경하는 방법

Python-c_rating으로 평균 예상 급여의 막대 차트를 생성하지만 성별에 따라 facet_wrap 수행

괄호 사이 팬더 추출 텍스트와 텍스트의 각 비트에 대한 행을 만들