R畫(huà)slope chart及代碼

我們?cè)谙胍故疚覀兊目蒲薪Y(jié)果的時(shí)候經(jīng)常會(huì)需要用到一些圖,其中slope chart也是我們常用圖之一熬的,slope看起來(lái)復(fù)雜痊硕,但是也是可以用R畫(huà)的,代碼如下:

library(ggplot2)
library(scales)
theme_set(theme_classic())

# prep data
df <- read.csv("https://raw.githubusercontent.com/selva86/datasets/master/gdppercap.csv")
colnames(df) <- c("continent", "1952", "1957")
left_label <- paste(df$continent, round(df$`1952`),sep=", ")
right_label <- paste(df$continent, round(df$`1957`),sep=", ")
df$class <- ifelse((df$`1957` - df$`1952`) < 0, "red", "green")

# Plot
p <- ggplot(df) + geom_segment(aes(x=1, xend=2, y=`1952`, yend=`1957`, col=class), size=.75, show.legend=F) + 
                  geom_vline(xintercept=1, linetype="dashed", size=.1) + 
                  geom_vline(xintercept=2, linetype="dashed", size=.1) +
                  scale_color_manual(labels = c("Up", "Down"),
                                     values = c("green"="#00ba38", "red"="#f8766d")) +  # color of lines
                  labs(x="", y="Mean GdpPerCap") +  # Axis labels
                  xlim(.5, 2.5) + ylim(0,(1.1*(max(df$`1952`, df$`1957`))))  # X and Y axis limits

# Add texts
p <- p + geom_text(label=left_label, y=df$`1952`, x=rep(1, NROW(df)), hjust=1.1, size=3.5)
p <- p + geom_text(label=right_label, y=df$`1957`, x=rep(2, NROW(df)), hjust=-0.1, size=3.5)
p <- p + geom_text(label="Time 1", x=1, y=1.1*(max(df$`1952`, df$`1957`)), hjust=1.2, size=5)  # title
p <- p + geom_text(label="Time 2", x=2, y=1.1*(max(df$`1952`, df$`1957`)), hjust=-0.1, size=5)  # title

# Minify theme
p + theme(panel.background = element_blank(),
           panel.grid = element_blank(),
           axis.ticks = element_blank(),
           axis.text.x = element_blank(),
           panel.border = element_blank(),
           plot.margin = unit(c(1,2,1,2), "cm"))
image.png

恭喜你押框,又學(xué)到了一個(gè)新技能岔绸。有任何問(wèn)題,歡迎留言。
微信公眾號(hào):生物信息學(xué)習(xí)盒揉,后臺(tái)回復(fù)slope,即可獲得代碼晋被。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市刚盈,隨后出現(xiàn)的幾起案子羡洛,更是在濱河造成了極大的恐慌,老刑警劉巖藕漱,帶你破解...
    沈念sama閱讀 206,968評(píng)論 6 482
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件欲侮,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡肋联,警方通過(guò)查閱死者的電腦和手機(jī)威蕉,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,601評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)橄仍,“玉大人韧涨,你說(shuō)我怎么就攤上這事∩忱迹” “怎么了氓奈?”我有些...
    開(kāi)封第一講書(shū)人閱讀 153,220評(píng)論 0 344
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)鼎天。 經(jīng)常有香客問(wèn)我舀奶,道長(zhǎng),這世上最難降的妖魔是什么斋射? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 55,416評(píng)論 1 279
  • 正文 為了忘掉前任育勺,我火速辦了婚禮,結(jié)果婚禮上罗岖,老公的妹妹穿的比我還像新娘涧至。我一直安慰自己,他們只是感情好桑包,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,425評(píng)論 5 374
  • 文/花漫 我一把揭開(kāi)白布南蓬。 她就那樣靜靜地躺著,像睡著了一般哑了。 火紅的嫁衣襯著肌膚如雪赘方。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 49,144評(píng)論 1 285
  • 那天弱左,我揣著相機(jī)與錄音窄陡,去河邊找鬼。 笑死拆火,一個(gè)胖子當(dāng)著我的面吹牛跳夭,可吹牛的內(nèi)容都是我干的涂圆。 我是一名探鬼主播,決...
    沈念sama閱讀 38,432評(píng)論 3 401
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼币叹,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼润歉!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起套硼,我...
    開(kāi)封第一講書(shū)人閱讀 37,088評(píng)論 0 261
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤卡辰,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后邪意,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 43,586評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡反砌,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,028評(píng)論 2 325
  • 正文 我和宋清朗相戀三年雾鬼,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片宴树。...
    茶點(diǎn)故事閱讀 38,137評(píng)論 1 334
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡策菜,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出酒贬,到底是詐尸還是另有隱情又憨,我是刑警寧澤,帶...
    沈念sama閱讀 33,783評(píng)論 4 324
  • 正文 年R本政府宣布锭吨,位于F島的核電站蠢莺,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏零如。R本人自食惡果不足惜躏将,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,343評(píng)論 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望考蕾。 院中可真熱鬧祸憋,春花似錦、人聲如沸肖卧。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 30,333評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)塞帐。三九已至拦赠,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間壁榕,已是汗流浹背矛紫。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 31,559評(píng)論 1 262
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留牌里,地道東北人颊咬。 一個(gè)月前我還...
    沈念sama閱讀 45,595評(píng)論 2 355
  • 正文 我出身青樓务甥,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親喳篇。 傳聞我的和親對(duì)象是個(gè)殘疾皇子敞临,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,901評(píng)論 2 345

推薦閱讀更多精彩內(nèi)容

  • 又是一節(jié)體育課,上課一分鐘了麸澜,老師站在前面等我們安靜下來(lái)挺尿,然后開(kāi)始上課。然而炊邦,事實(shí)并非如此编矾,眼看著老師的耐心...
    楊環(huán)墉閱讀 302評(píng)論 0 0
  • 有時(shí)候真的覺(jué)得自己干啥啥不行,工作能力不行馁害,情商又低窄俏,學(xué)習(xí)能力也垃圾的不行!
    可可貓不吃魚(yú)閱讀 261評(píng)論 1 3
  • 一夜大雨的洗禮碘菜,疊疊的群山仿佛披上了輕紗凹蜈,在遠(yuǎn)處眺望,若即若離忍啸,像幾筆淡墨涂抹在藍(lán)藍(lán)的天邊仰坦,湖中的小島更是神秘,若...
    唐春元ok閱讀 272評(píng)論 23 22
  • 這個(gè)冬季感覺(jué)特別長(zhǎng)鸭巴,又特別冷眷细,在我們的媽媽群里總能聽(tīng)到這樣的聲音:我家寶貝流鼻涕了該吃點(diǎn)什么?孩子咳嗽幾天了該吃點(diǎn)...
    小小潘麻麻閱讀 599評(píng)論 0 0
  • 最近幾天點(diǎn)擊率很高一個(gè)視頻新聞鹃祖,南京原配抓小三溪椎,假離婚變真離婚。評(píng)論里點(diǎn)贊最多的竟然是那條“愿所有的原配都...
    多年以后再回首閱讀 347評(píng)論 1 3