왼쪽 정렬 ggplot 제목 (Trying hjust/margin() 및 아무것도 작동하지 않음)

Question

그래서이 질문과 관련하여 많은 게시물이 있다는 것을 알고 있습니다. 나는 hjust/vjust을 해킹하고 아무것도 작동하지 않을 것이므로 hjust와 margin()을 사용해 보았습니다. ggplot 제목이 중앙 정렬 된 무엇을 상관없이. 왼쪽 정렬해야합니다. 이것이 가능한가? 현재 코드의 레이아웃과 관련이 있습니까? 누군가 제발 도와 줄 수 있습니까?! 코드는 다음과 같습니다. 미리 감사드립니다. :)

위의 질문과는 별도로 색칠 된 상자 안에 제목 텍스트를 넣을 수 있습니까? 예를 들어, 블랙 박스 안에 흰색 텍스트가 삽입되어 있습니까?

다시 한번 감사드립니다!

output$plot <- renderPlotly({ 
    if(input$Player == "") 
     return(NULL) 

    player_trend <- injury[injury$Player == input$Player, ] 

    ggideal_point <- ggplot(player_trend) + 
     geom_line(aes(x = Season, y = WAR), size = 1.25) + 
     geom_point(aes(x = Season, y = WAR), size = 3) + 
     labs(x = "Season", y = "WAR") + 
     ggtitle("Title Goes Here") + 

Answer 1

데이터를 제공하지 않았거나 잘못된 내용과 원하는 결과를 제공하지 않았으며 실제로 여러 질문을했습니다.

ggplot2 -build grob 수준의 조작으로 처리하려고합니다. 그것은 심각하게 낮은 수준의 작업입니다.

이 :

#' Completely flush-left-align ggplot2 title 
#' 
#' @return \code{gtable} object 
#' @param gg ggplot2 object 
title_left <- function(gg) { 

    gt <- ggplot_gtable(ggplot_build(gg)) 
    gt$layout[which(gt$layout$name == "title"), c("l", "r")] <- c(1, max(gt$layout$r)) 
    gt 

} 

플러시 왼쪽 (완전히) 타이틀 정렬. 더 이상 ggplot2 개체가 아니므로 grid::grid.newpage() 및 grid::grid.draw()과 같이 그릴 때는 grid 함수를 사용해야합니다. 완전히 플러시 왼쪽보다 적게 사용하려면 함수를 조정해야합니다.

두 번째 질문에 대해서는 https://stackoverflow.com/a/37156845/1457051과 같은 것을 사용해야하고 위의 기능을 변경하여 패싯 제목과 rect grobs를 이동 시키십시오. 다른 사람들이 당신을 위해 할 수도 있습니다).

그러나

당신은 당신이 shiny에있어 및 plotly를 사용하는 것은 그래서 이것은 모든 이론에 불과, ggplot2 -land에 아니에요. 은 실제로는이지만 output$plot <- renderPlotly({은 그 사실을 말하지 않았습니다. 상호 작용에 대한 귀하의 욕구가 (아이러니하게도) 옵션을 제한하려고합니다. plotly은 빠른 상호 작용을 위해 최고이지만, plotly에 솔루션을 구두점을 넣으려는 것보다 자신의 시간을 덜 쓸 수 있습니다 (대상 플롯 요소에 대한 사용자 정의 CSS를 추가해도 작동하지만 리서치가 포함될 수도 있음).