R의 ggplot2는 : 열지도의 측면에 전설과 가치 계산에 사용자 지정 텍스트를 추가

Question

내 입력 데이터는 다음과 같습니다

COMPANY  DOMAIN REVIEW PROGRESS 
Company A Service Good  + 
Company A Response Good  + 
Company A Delay  Very Good  
Company A Cost  Poor  - 
Company B Service Poor  - 
Company B Delay  Average 
Company B Cost  Good  + 
Company C Service Very Poor + 
Company C Cost  Average 

내가 내가 "PROGRESS의 (값 텍스트를 추가하는 히트 맵을 생성 "변수 - 즉 플러스 또는 마이너스 기호).

require("ggplot2") 

graph <- read.table("input.tab", header=T, sep="\t") 

ggplot(data=graph, aes(x=COMPANY, y=DOMAIN, group=REVIEW, fill=REVIEW)) + 

geom_tile() + 

geom_text(aes(x=COMPANY, y=DOMAIN, label=PROGRESS)) + 

scale_x_discrete(expand = c(0, 0)) + 

scale_y_discrete(expand = c(0, 0)) + 

geom_vline(xintercept=seq(1.5, length(graph$COMPANY)+0.5)) + 
geom_hline(yintercept=seq(1.5, length(graph$DOMAIN)+0.5)) + 

theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(), 
    axis.line = element_blank(), 
    axis.ticks = element_blank(), 
    panel.background = element_blank(), 
    plot.background = element_blank(), 
    axis.title=element_blank(), 
    axis.text.x = element_text(angle=45, size=12, hjust=1) 
    ) 

내가 추가 고투하고 그러나 (그림은 수동으로 아래 수정 참조) : 여기

내 코드입니다

(1) 다음의 "실행 중"전설 이미 색상 코드의 한 부분으로 나열된

+ Better 
- Worse 

(2) 플롯의 우측 및 범례 사이의 각각의 행에있는 데이터의 카운트

012 3,516,

(3) 플롯

어떤 조언 상단에 각 열의 볼 수 데이터의 카운트?

Answer 1

다음은 내가 제안한 솔루션입니다. 내가 한 행동을 이해할 수 있도록 코드에 주석을 추가했습니다. 그래도 그리드를 생성하는 좋은 방법이 있습니다. 희망이 도움이됩니다.

graph <- read_csv(
"COMPANY  ,DOMAIN ,REVIEW ,PROGRESS 
Company A ,Service ,Good  ,+ 
Company A ,Response ,Good  ,+ 
Company A ,Delay  ,Very Good , 
Company A ,Cost  ,Poor  ,- 
Company B ,Service ,Poor  ,- 
Company B ,Delay  ,Average , 
Company B ,Cost  ,Good  ,+ 
Company C ,Service ,Very Poor ,+ 
Company C ,Cost  ,Average ,") 


ggplot() + 
    # moved aesthetics and data to each geom, 
    # if you keep them in the ggplot call, 
    # you have to specify `inherit.aes = FALSE` in the rest of the geoms  
    geom_tile(data = graph, 
      aes(x = COMPANY, 
       y = DOMAIN, 
       fill = REVIEW)) + 
    # changed from `geom_text` to `geom_point` with custom shapes 
    geom_point(data = graph, 
      aes(x  = COMPANY, 
       y  = DOMAIN, 
       shape = factor(PROGRESS, labels = c("Worse", "Better"))), 
      size = 3) + 
    # custom shape scale 
    scale_shape_manual(name = "", values = c("-", "+")) + 
    # calculate marginal totals "on the fly" 
    # top total 
    geom_text(data = summarize(group_by(graph, COMPANY), 
           av_data = length(!is.na(PROGRESS))), 
      aes(x = COMPANY, 
       y = length(unique(graph$DOMAIN)) + 0.7, 
       label = av_data)) + 
    # right total 
    geom_text(data = summarize(group_by(graph, DOMAIN), 
           av_data = length(!is.na(PROGRESS))), 
      aes(x = length(unique(graph$COMPANY)) + 0.7, 
       y = DOMAIN, label = av_data)) + 
    # expand the plotting area to accomodate for the marginal totals 
    scale_x_discrete(expand = c(0, 0.8)) + 
    scale_y_discrete(expand = c(0, 0.8)) + 
    # changed to `geom_segment` to generate the grid, otherwise grid extends 
    # beyond the heatmap 
    # horizontal lines 
    geom_segment(aes(y = rep(0.5, 1 + length(unique(graph$COMPANY))), 
        yend = rep(length(unique(graph$DOMAIN)) + 0.5, 
           1 + length(unique(graph$COMPANY))), 
        x = seq(0.5, 1 + length(unique(graph$COMPANY))), 
        xend = seq(0.5, 1 + length(unique(graph$COMPANY))))) + 
    # vertical lines 
    geom_segment(aes(x = rep(0.5, 1 + length(unique(graph$DOMAIN))), 
        xend = rep(length(unique(graph$COMPANY)) + 0.5, 
           1 + length(unique(graph$DOMAIN))), 
        y = seq(0.5, 1 + length(unique(graph$DOMAIN))), 
        yend = seq(0.5, 1 + length(unique(graph$DOMAIN))))) + 

    # custom legend order 
    guides(fill = guide_legend(order = 1), 
     shape = guide_legend(order = 2)) + 
    # theme tweaks 
    theme(
    panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(), 
    axis.line  = element_blank(), 
    axis.ticks  = element_blank(), 
    panel.background = element_blank(), 
    plot.background = element_blank(), 
    axis.title  = element_blank(), 
    axis.text.x = element_text(angle = 45, 
           size = 12, 
           hjust = 1, 
           # move text up 20 pt 
           margin = margin(-20,0,0,0, "pt")), 
    # move text right 20 pt 
    axis.text.y = element_text(margin = margin(0,-20,0,0, "pt")) 
)