예, 가능하지만 Mike Wise는 레이블 / 텍스트 부분에서 그리드를 사용하는 것이 더 쉬울 수 있다는 것이 옳을 수도 있습니다. 다음은 플롯 자체에 도움이되는 내용입니다.
먼저 여기 에서 가져온 circle 함수
circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){
r = diameter / 2
tt <- seq(0,2*pi,length.out = npoints)
xx <- center[1] + r * cos(tt)
yy <- center[2] + r * sin(tt)
return(data.frame(x = xx, y = yy))
}
# and make a circles
circle1 <- circleFun(c(10,10),20,npoints = 100)
circle2 <- circleFun(c(10,10),15,npoints = 100)
circle3 <- circleFun(c(10,10),10,npoints = 100)
# then make some toy data for the points
df <- data.frame(strategy=5:10, offering=c(5,7,9,8,6,9),labelz=c("SAS","ORACLE","IBM","SAP","X-Systems","ABCD"))
maxi <- max(df$offering)/30
#and now some plotting
library(ggplot2)
library(digest) # I needed to call this seperately, should not be necessary
ggplot(data=df, aes(x=strategy, y=offering)) +
geom_polygon(data=circle1, aes(x,y), fill = "#99CCFF") +
geom_polygon(data=circle2, aes(x,y), fill = "#6699CC") +
geom_polygon(data=circle3, aes(x,y), fill = "#336699") +
geom_point(aes(size=offering*strategy),color = "white") +
geom_point(aes(size=1)) +
geom_text(aes(label=labelz), nudge_y = maxi) +
coord_cartesian(xlim=c(0,10),ylim=c(0,10)) +
theme_bw()
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다