散點餅圖的3種樣式繪制

# 生成數據
set.seed(123)
long <- rnorm(50, sd=100)
lat <- rnorm(50, sd=50)
d <- data.frame(long=long, lat=lat)
d <- with(d, d[abs(long) < 150 & abs(lat) < 70,])
n <- nrow(d)
d$region <- factor(1:n)
d$A <- abs(rnorm(n, sd=1))
d$B <- abs(rnorm(n, sd=2))
d$C <- abs(rnorm(n, sd=3))
d$D <- abs(rnorm(n, sd=4))
d[1, 4:7] <- d[1, 4:7] * 3
head(d)
數據格式
p <- ggplot() + geom_scatterpie(aes(x=long, y=lat, group=region), data=d,
                           cols=LETTERS[1:4]) + coord_equal() 
樣式一

自定義樣式

theme_half<- function(){
        theme(
            panel.background = element_rect(fill="transparent"), 
            panel.grid = element_line(color = "#cccccc"),
            legend.key = element_blank(),
            axis.line = element_line(colour = "black"),         
        )
    }
p + theme_half()
樣式二
p + theme_classic()
樣式三

參考資料

https://cran.r-project.org/web/packages/scatterpie/vignettes/scatterpie.html

?著作權歸作者所有,轉載或內容合作請聯系作者
  • 序言:七十年代末残黑,一起剝皮案震驚了整個濱河市撇吞,隨后出現的幾起案子糕殉,更是在濱河造成了極大的恐慌,老刑警劉巖驹针,帶你破解...
    沈念sama閱讀 216,372評論 6 498
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件烘挫,死亡現場離奇詭異,居然都是意外死亡柬甥,警方通過查閱死者的電腦和手機饮六,發(fā)現死者居然都...
    沈念sama閱讀 92,368評論 3 392
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來苛蒲,“玉大人卤橄,你說我怎么就攤上這事”弁猓” “怎么了窟扑?”我有些...
    開封第一講書人閱讀 162,415評論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長漏健。 經常有香客問我嚎货,道長,這世上最難降的妖魔是什么蔫浆? 我笑而不...
    開封第一講書人閱讀 58,157評論 1 292
  • 正文 為了忘掉前任殖属,我火速辦了婚禮,結果婚禮上瓦盛,老公的妹妹穿的比我還像新娘洗显。我一直安慰自己,他們只是感情好原环,可當我...
    茶點故事閱讀 67,171評論 6 388
  • 文/花漫 我一把揭開白布挠唆。 她就那樣靜靜地躺著,像睡著了一般嘱吗。 火紅的嫁衣襯著肌膚如雪玄组。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,125評論 1 297
  • 那天,我揣著相機與錄音巧勤,去河邊找鬼。 笑死弄匕,一個胖子當著我的面吹牛颅悉,可吹牛的內容都是我干的。 我是一名探鬼主播迁匠,決...
    沈念sama閱讀 40,028評論 3 417
  • 文/蒼蘭香墨 我猛地睜開眼剩瓶,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了城丧?” 一聲冷哼從身側響起延曙,我...
    開封第一講書人閱讀 38,887評論 0 274
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎亡哄,沒想到半個月后枝缔,有當地人在樹林里發(fā)現了一具尸體,經...
    沈念sama閱讀 45,310評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡蚊惯,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內容為張勛視角 年9月15日...
    茶點故事閱讀 37,533評論 2 332
  • 正文 我和宋清朗相戀三年愿卸,在試婚紗的時候發(fā)現自己被綠了。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片截型。...
    茶點故事閱讀 39,690評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡趴荸,死狀恐怖,靈堂內的尸體忽然破棺而出宦焦,到底是詐尸還是另有隱情发钝,我是刑警寧澤,帶...
    沈念sama閱讀 35,411評論 5 343
  • 正文 年R本政府宣布波闹,位于F島的核電站酝豪,受9級特大地震影響,放射性物質發(fā)生泄漏精堕。R本人自食惡果不足惜寓调,卻給世界環(huán)境...
    茶點故事閱讀 41,004評論 3 325
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望锄码。 院中可真熱鬧夺英,春花似錦、人聲如沸滋捶。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,659評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽重窟。三九已至载萌,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背扭仁。 一陣腳步聲響...
    開封第一講書人閱讀 32,812評論 1 268
  • 我被黑心中介騙來泰國打工垮衷, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人乖坠。 一個月前我還...
    沈念sama閱讀 47,693評論 2 368
  • 正文 我出身青樓搀突,卻偏偏與公主長得像,于是被迫代替她去往敵國和親熊泵。 傳聞我的和親對象是個殘疾皇子仰迁,可洞房花燭夜當晚...
    茶點故事閱讀 44,577評論 2 353

推薦閱讀更多精彩內容