회피 된 barplot에 geom_text 추가가 작동하지 않음
David Ricardo Menacho Vadillo
나는 많은 시도를했지만이 레이블을 피할 수는 없습니다.
Sistema<-c("MOTOR EQUIPO MOVIL","PMs","SISTEMA HIDRAULICO","TREN DE POTENCIA","CABINA","SISTEMA ELECTRICO 24V","SISTEMA CHASIS","SISTEMA DE FRENOS","VARIOS DISPATCH","SUSPENSION Y RUEDAS")
DetNP<-c(17,1,8,10,13,8,3,2,2,2)
DetP<-c(1,16,3,3,1,1,1,1,1,1)
Indisp<-c(0.0305,0.0203,0.0109,0.0094,0.0093,0.0069,0.0060,0.0020,0.0004,0.0003)
Total<-c(18,17,11,13,14,9,4,3,3,3)
Max<-c(17,16,8,10,13,8,1,2,2,2)
datos<-data.frame(Sistema,DetNP,DetP,Indisp,Total,Max)
library(ggplot2)
library(reshape2)
library(scales)
datos<- melt(datos, id = c("Sistema","Indisp","Total","Max"))
scaleFactor <- max(datos$value) / max(datos$Indisp)
ggplot(datos) +
geom_bar(aes(x = reorder(Sistema, -Indisp), y = value, fill = variable),stat = "identity", position = "dodge") +
geom_text(aes(x = reorder(Sistema, -Indisp), y = value/2, label = value), position = position_dodge(width = 0.9))
이것이 결과입니다 (참고 : 레이블은 막대 중간에 배치되어야 함).
나는 modyfing position_dodge 매개 변수, stat = "Identity"를 추가하고 크기와 다른 것들을 가지고 놀았지만 성공할 수 없었다. 모든 도움을 환영합니다.
크르 푸르 롱
당신은 매우 가까웠습니다-당신이 잊고 있었던 한 가지 큰 것은 인수 geom_text에 대해 계층에 알리는 방법을 포함하는 것이 었습니다 fill(예 : 닷지 막대 차트). geom_text의 group인수를 사용 하여이 정보를 레이어에 추가 했습니다 aes.
library(ggplot2)
library(reshape2)
library(scales)
datos<- melt(datos, id = c("Sistema","Indisp","Total","Max"))
scaleFactor <- max(datos$value) / max(datos$Indisp)
ggplot(datos) +
geom_bar(aes(x=reorder(Sistema,-Indisp), y=value, fill=variable),
stat="identity", position="dodge") +
geom_text(aes(x=reorder(Sistema,-Indisp), y=value/2, label=value, group = variable), #added in group=variable to geom_text
position = position_dodge(width = 0.9)) # experiment with the width value to get the spacing you want
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
에서 수정
관련 기사
Related 관련 기사
- 1
ggplot : geom_text가 geom_col 위에 인쇄되지 않음
- 2
geom_text 레이블이 내 막대 차트에서 회피하고 싶지 않습니다.
- 3
ggplot : geom_text가 geom_col () 위에 중앙 정렬되지 않습니다.
- 4
Ggplot2 : geom_text ()는 플롯에 원하지 않는 값을 추가합니다.
- 5
추가 된 열에서 데이터 테이블 "fnFilter"가 작동하지 않음
- 6
ggplot : 여러 플롯에 레이블을 추가하는 방법 (geom_text 사용, 범례 없음)?
- 7
페이지로드 후 추가 된 HTML에서 .on ()이 작동하지 않음
- 8
스피너가 회전하지 않음
- 9
처음에 확장 된 BottomSheetDialog가 작동하지 않음
- 10
geom_text 및 패싯이 작동하지 않음
- 11
jQuery-동적으로 추가 된 요소가 mouseleave, 클릭 이벤트에서 작동하지 않음
- 12
동적으로 추가 된 요소에 대해 jQuery 클릭 이벤트가 작동하지 않음
- 13
동적으로 추가 된 Div에 대해 Jquery 이벤트가 작동하지 않음
- 14
서버에로드 된 후 Shadowbox가 작동하지 않음
- 15
Postman에서 생성 된 RestSharp 코드가 작동하지 않음
- 16
mPDF로 생성 된 PDF가 Android에서 작동하지 않음
- 17
목록에서 분리 된 오류가 작동하지 않음
- 18
after ()를 사용하여 추가 된 div에서 날짜 선택기가 작동하지 않음
- 19
창 관리자에 추가 된보기에서 끌어서 놓기가 작동하지 않음
- 20
자체 서명 된 인증서 우회가 작동하지 않음
- 21
추가 된 테이블 행에 대해 jquery last () 메서드가 제대로 작동하지 않음
- 22
.htaccss에 추가 된 후행 슬래시 후 활성 메뉴가 작동하지 않음
- 23
nested_form gem을 통해 추가 된 중첩 속성에 대해 booty 편집기가 작동하지 않음
- 24
동적으로 추가 된 데이터에 대해 DataTables 검색 및 정렬이 작동하지 않음
- 25
geom_text가 패싯 및 나머지 플롯에서 작동하도록 할 수 없습니다.
- 26
페이지로드 후 추가 된 콘텐츠에 대해 Rateit 플러그인이 작동하지 않음
- 27
추가 된 getElementById 문 후 Javascript에서 경고가 작동하지 않습니다.
- 28
추가 된 html에서 preventDefault ()가 작동하지 않습니다. 왜?
- 29
jquery 선택기가 추가 된 태그에서 작동하지 않습니다.
몇 마디 만하겠습니다