From cbe43d1fa53fc161ce9073e58cd4bab4acd649fe Mon Sep 17 00:00:00 2001 From: hrbrmstr Date: Fri, 20 Dec 2019 04:21:38 -0500 Subject: [PATCH] dec debate --- DESCRIPTION | 2 +- ...19-12-19-us-elections-debate-speaking-time.html | 586 +++++++++++++++++++++ data-raw/debates2019.R | 68 ++- data/debates2019.rda | Bin 8231 -> 8904 bytes man/geom_chicklet.Rd | 25 +- 5 files changed, 669 insertions(+), 12 deletions(-) create mode 100644 data-raw/2019-12-19-us-elections-debate-speaking-time.html diff --git a/DESCRIPTION b/DESCRIPTION index 0993efb..a6e093a 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -19,5 +19,5 @@ Suggests: covr, hrbrthemes, dplyr, forcats, knitr, rmarkdown, Depends: R (>= 3.2.0) Imports: ggplot2, grid Roxygen: list(markdown = TRUE) -RoxygenNote: 6.1.1 +RoxygenNote: 7.0.2 VignetteBuilder: knitr diff --git a/data-raw/2019-12-19-us-elections-debate-speaking-time.html b/data-raw/2019-12-19-us-elections-debate-speaking-time.html new file mode 100644 index 0000000..c29e55a --- /dev/null +++ b/data-raw/2019-12-19-us-elections-debate-speaking-time.html @@ -0,0 +1,586 @@ + + + + Which Candidates Got the Most Speaking Time in the Democratic Debate - The New York Times + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Skip to contentSkip to site index
Elections

Advertisement

Which Candidates Got the Most Speaking Time in the Democratic Debate

+ + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + +
+ + + +

+ + How Long Each Candidate Spoke + + + + +

+ + + + + + +
+ + + + + + +
+ +

Impeachment

+
+ +
+ +

Economy

+
+ +
+ +

Climate change

+
+ +
+ +

Racial equality

+
+ +
+ +

Foreign policy

+
+ +
+ +

Electability

+
+ +
+ +

Party strategy

+
+ +
+ +

Human rights

+
+ +
+ +

Immigration

+
+ +
+ +

Health care

+
+ + + + +
+ + + + + + + + +
+
+
+ + + + + + + + + + + + + + + + + + + + + +
+ + + Note: Each bar segment represents the length of a candidate’s response to a question. +
+ + +
+ +

+ Senator Bernie Sanders of Vermont and Senator Amy Klobuchar of Minnesota got the most speaking time in the sixth Democratic presidential debate. +

+

+ The candidates sparred on party strategy, electability and whether campaigns should accept money from wealthy donors. Discussion of foreign policy lasted 15 minutes, more than any other topic, while climate change was the focus for 11 minutes. Candidates also defended the rights of the press, people with disabilities and transgender people. +

+ + + + + + + + + + + + +
+ + + + + + + + + + + + + + +
+
+ + + + + + + + + + + + + + + + +
+ +

+ Get full coverage of the Democratic presidential debate from the Times. +

+ +
+ + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + +
+ +
+ + + + \ No newline at end of file diff --git a/data-raw/debates2019.R b/data-raw/debates2019.R index f65d692..fff5bca 100644 --- a/data-raw/debates2019.R +++ b/data-raw/debates2019.R @@ -23,6 +23,7 @@ if (!file.exists(here::here("data-raw/2019-07-31-us-elections-debate-speaking-ti if (!file.exists(here::here("data-raw/2019-09-12-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/09/12/us/elections/debate-speaking-time.html", here::here("data-raw/2019-09-12-us-elections-debate-speaking-time.html")) if (!file.exists(here::here("data-raw/2019-10-15-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/10/15/us/elections/debate-speaking-time.html", here::here("data-raw/2019-10-15-us-elections-debate-speaking-time.html")) if (!file.exists(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/11/20/us/elections/debate-speaking-time.html", here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html")) +if (!file.exists(here::here("data-raw/2019-12-19-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/12/19/us/elections/debate-speaking-time.html", here::here("data-raw/2019-12-19-us-elections-debate-speaking-time.html")) read_html(here::here("data-raw/2019-06-26-us-elections-debate-speaking-time.html")) %>% html_nodes(xpath = ".//script[contains(., 'NYTG_DEMDEBATES')]") %>% @@ -353,6 +354,64 @@ read_html(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html ) %>% as_tibble() -> nov_day_1 + +read_html(here::here("data-raw/2019-12-19-us-elections-debate-speaking-time.html")) %>% + html_nodes(xpath = ".//script[contains(., 'NYTG_DEMDEBATES')]") %>% + html_text() %>% + stri_split_lines() %>% + unlist() %>% + .[3] %>% + stri_replace_first_regex("^.*NYTG_DEMDEBATES = ", "") %>% + jsonlite::fromJSON() %>% + as_tibble() %>% + mutate( + elapsed = as.numeric(elapsed)/60, + debate_date = as.Date("2019-12-19"), + speaker = stri_trans_totitle(speaker), + timestamp = parse_time(timestamp), + debate_group = 6, + night = 1 + ) %>% + filter(speaker != "") %>% + mutate( + topic = case_when( + topic == "" ~ "Other", + grepl("climate", topic) ~ "Climate", + grepl("closing", topic) ~ "Closing", + grepl("judges", topic) ~ "Judges", + grepl("race", topic) ~ "Race", + grepl("education", topic) ~ "Education", + grepl("human-rights", topic) ~ "Human Rights", + grepl("criminal-justice", topic) ~ "Criminal Justice", + grepl("electability", topic) ~ "Electability", + grepl("election-reform", topic) ~ "Election Reform", + grepl("executive-power", topic) ~ "Executive Power", + grepl("candidate-age", topic) ~ "Age", + grepl("foreign-policy", topic) ~ "Foreign Policy", + grepl("gun-control", topic) ~ "Gun Control", + grepl("health-care", topic) ~ "Healthcare", + grepl("immigration", topic) ~ "Immigration", + grepl("impeachment", topic) ~ "Impeachment", + grepl("income-inequality", topic) ~ "Income Inequality", + grepl("economy", topic) ~ "Economy", + grepl("middle-east policy", topic) ~ "Foreign Policy", + grepl("opioids", topic) ~ "Opioids", + grepl("party-strategy", topic) ~ "Party Strategy", + grepl("public-service", topic) ~ "Public Service", + grepl("tech-companies", topic) ~ "Tech Companies", + grepl("white-supremacist violence", topic) ~ "White-Supremacy", + grepl("womens-issues", topic) ~ "Women's Rights", + topic == "" ~ "Other", + TRUE ~ topic + ) + ) %>% + filter( + !is.na(timestamp), + speaker != "", + speaker != "Moderator" + ) %>% + as_tibble() -> dec_day_1 + bind_rows( jun_day_1, jun_day_2, @@ -360,8 +419,13 @@ bind_rows( jul_day_2, sep_day_1, oct_day_1, - nov_day_1 -) -> debates2019 + nov_day_1, + dec_day_1 +) %>% + mutate(topic = case_when( + grepl("elect.*form", topic, ignore.case = TRUE) ~ "Election Reform", + TRUE ~ topic + )) -> debates2019 usethis::use_data(debates2019, overwrite = TRUE) diff --git a/data/debates2019.rda b/data/debates2019.rda index 40336f64a861f51e8fdbe99afe5204eee9a00dbf..7347a0b11cf562935ca559476492fcc14204653d 100644 GIT binary patch literal 8904 zcmV;(A~)SaT4*^jL0KkKS?NdYHUL}tfB*mg|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0 z|NsC0|Nr15+W-JFsEC&E1XN&Z_1E*Sg>UbiG7H3VJ34WZDzR1j(9c2Brz*08JWVVqgIn zBPI|HF*QFxO&Cl}H8g3X1kljQkvxr01w2Mc>Sl~Vq}ZC8c`{_kY3Phls;B-;Mod*y zFcT)2089d4nKZx&ffz#o0x$s>OiU&TfiRc=353%|6D9&QzyJUMm;o>ZzynM|B8exI z@`DNL0iXthMu2*NdW{1?pwmI=si&j^AOk?q0009Z007Vc&;SO20000D002Uf6jNz6 zOqn)_+D}vUCXE_BAT$6P4^Yt14GlCJ13(%8WHbOY05p0)00y3*01W^DGynhq01W_& zLS&?rc%G^GM9r#b{HBxgPfbSD z^rzxe+C5XrLwYFFO+BeLrfM`EQ%_LPWO{m_(`pB(2dFJ$lM zYTpj#7!v`S&}&pfELwp?JS8sltqFme_^bq2k_BPv1B=>$Yc>sNYQaMQO2cF?4FwoE zRhnZJVq&!+0MIRvG8Y+~B?k5u5r{k$j*8AT6EO#Zb`-*-jZC4N0N9dcGJ%AG6S$p# zmer_5Fbyb!hbFr@1_W$uMwXI_JzCJT!$mP*nurpX64$WQo`*~uT519%YuN^f*JFhj zve2xI%U4^v1@4xm+?i&O0*oYb>v^mVsMbs+=`@Qwfm)^ya08mS-X3iUOUO|U!~jy z;V^ets=et-+K%^=8^j@#VMeEGQdn0PCToPn9PWPZ)B7zhZc%af1 z8SQs=ky}=nDlt?f5s{Aq$fnY^g(}wxHGsYqZ3~G>q%~}>fs4W3Y!#%^s}ePPl~6{o zw@14vKoi+oF9Z;EYTT$oO(%4fhrJeN`3uZ~O`*lY=vX6Cd=M@Q&t|9s1?u=SW;+tv z)-*{s3V>c;4CYG+<#8A{V8jy{$P(i0kdiL=c*4FY<1*}+kQ9oT&7H>5n64ldTErK! z%B$3m0EmlIkn8dkr2qgybRYl$1^9qM5NxhJ0fvBk^QcvM#oiJhg~~Z36E0nv>hAT9 z1}*=~O>o3HqA*dtWJnn7@`6WoL(&&)Z$^V{(!zqVMS{f+^Naf~X#xPen4IkqD~2ZDj!jIa(cM1O?{Q zh_5Q3g@UL7)6<}71qQ zuIFQQ*!Z6NNG`)ZQPMkO*^lfdmHU5XYYA+tnO$|xdJ1Z+wMP&YCpB|>JV;A}mUGX$a}h8i0U z-pb6YG#X`xAjImmyhbG(1hTGHmQF?}lI_Cl3Z3r7HS~}-kOV*66UX44z)$M6kbVQIux08_2 zHJM}rL=6gb?ZjO|w5UV}5@nE_^|1rDGM z!$GJyj?xYBis4br9NK`RaJ{S!qmAQhFajY6n^9%eu7i$^WOT;i=#x@3WfepNNPw!a zA`0!kY)DlAA^2~FrSk5oShykp|LM#XDk`G+R1Y)eZz#O7-uxZ*`u_7|?xozK@|Tlc z=4B*=bW~1T=7w=bzpkpC{**vhq^!-?Ulp`PxX-qY-YN*q8DGDLAy zlBEVgKwvzmDXUQ*5IfwP?+j6r4n6Bl9@B9qk_5Z7mDYt`K5){dt;mG3!j*`n|Lm(lB7NzA22 zdA$#}-%R5?%nT<=kk}_xCho4kn2^B3W~6^igZi$e(NV84nTAS^?XNXChyVaU%po{3 z41t!^d}sn_M00qc@O>uhQ*n_1-A?H@bdWs+MAk*%eyMAPy{L*6uE?CFf2qF`cu1*C z@!*0`J2_pNV|;qxIJio8kii&TMzoQk~ zfgnhCXbvDAT)|PmfX^u+Ign+5Ic~8! zM}mmmz5U1SgAG957#2X$AE-Q$h_NQu73g3AIF$eHXpYYCcb~v^(jS;bTIoLnOV1_x z;E#e4?heCGP&V_%7H&&!``1-J6n*uq3A9ry2!+@X(>L@Oi{^f*uGvjH=O81a6Ii1h#bB4vx z?o-~S*=~BM(aVX2CEW!?Cbl=}(UJ~|jEzr0zit(_SMf4&`3ZDg!t3UWU5C36_!Gv~ zY9j)r`XX~C9p=MTjYkh1?x8guJ3Zh6F9$}LI{#1Yx?OYpM|qmW><|W`z+!eElfWE% zD`cx4Qg!(`zP780gntTa_&NUOrK0#Ch?k69^?1^lQF`pAIuY~k_BCYb3iwR7nypl_ zh$T)>I`&+^EotUK^WWF2)$DFU^9uBAQ!h=jvX_Of`GMK(IaF6&{)lU21Rx#=HyE=L*jGsGZ zn(f*KWx0)2Thc9D zf>W-Czu|L!B@S%cElb}ae@?zLXYv`maAFtr*9@xsGZ(;uk(3)A$)y#yfcFH%(bxT)iZRm^ehb(uBGdLKW z7nH@$`6R=#-JK;{j=Mb)5u5sa_olCI!9jPEN%eud>L78gG8gKJ?kBzT$z9Y4L)855 zgCQF$pUy3Wh9ji(8;3VSv83#}=Yqm6@{3jp3maAsrgyhg-N0sj)ia&&qT!A8ESph7 zb84H8X;jH&G$vT6Hr@IX_k^^$nWz_UL+Pa-n}N(3bs4GBiv%~(sE#t&KBF9eEys4i zia+J?ArgYhCS4OE;sq?P5Syf#p3UJo{xJ{Im1ByntsR#@a799djm{iikyD+$7C8g2r&Nm{b zGF;OS)%%5>=RH|sp&@T)0peopc3Gc8eE4K@oTlH$cs$+e0Y&iPK}kZYN)-S?uXG@} z{jnHaU8{IPZXvv2w>ooy1H&*;t84XrN|8VQJj_&FBsR6utb5p^>yZD~nH}T$T_T9e zoThzOuk+MN-LJKjPQY6?E8FjwgN*Z+>llJgH-URIAsmpp^uy=n4-@9w>7m~(cj)+T zDn4#jz3WeHCEnsqvnziX3QgPTpCtmUbuPm9Cu3;?Bn{P1$Rm?b;qnh(DK(TW3hUaz zu39HQ`;;Z5&$lCAh-Rp*r?+neYsC!Z(~C~GZ)vqz88imu~m+aHW6ZdQPo1OUtG{M{Q$d#!6+ro-awPfH$FZYb zPi+)wlm0SG=sqS)BdxRuNx1OY4Rw3DC;wHmHWGRCybY`(d>qT%v`-53r^S-J9s9Oj zzK3to$gy&Ev&TlE*!Z7l)9B!y#*_J%fuS#mj#W_Rsau(UW;9L9%~0yhzexbW1dCKGRY z?yvm^*`|fJcnIBkoz=6J7qI)3!pMvWu_6$J0-m6ml%G2ujdb*qt9-K}VsU8#&RVo3B zp@u8k2~BviM)w3g_8gZNy%iiR-RJ(D`F;N`(1tclMD;*AKn7rBLUUkkq5(<*7=kv8 zpFPZQtAkCZWbUYrtpLM7E}&O)A0O{|IF~&wYh*iO>pXg<7fa&4*c*Kby%`iXLm8}q zK)Jz-7Ua9E8-XPGdvunkG5tBUq9Bjqp~j7BmL43doWZ{(qy%(xfoOwp6gQzlio8L` zgy^%m+>T4<_uTh|-hRJ7$LM(nJk1`hZ`Z2ZaAj)wDakAJ*_lwl8I$gwpQGYaQ;o{; zjQAaue{pqi9fTkdn}JdD;|%`h&wnPVr5RAhyoORgXSBnS7O@dKKmSMRlHmO?`cfW^60TY zLGXKKr*}1cM#qWZA|Q2;j+V2(9}};+HR#~;1W5|@>8Dii;LR>Pwnt6ipc6ntXbn`B zzSU~*05;aw0QZUm!2#w7Ig~3;ED%0?ME;}%JCG6M1OvuVY5}~ea$1YP452L-6kj<& zGdiYLp%A8z1J_R83*)jpX8b0QwgM)({}2$$X#7V+2lT-M1KFcVi1(!k*B~K!h94u`#SS&a#cQPGyFJD!ckHy$IHGcX~Hz|aipC`#017*nS;8LZWYV$qqE zL5`edC?PI4E+`J^XvQw6Q-GxxQ8@?!pi?*CJIus7zPQvM4cvA6AZOw6&sPM&LoCr0 z6;l&QQiBu(t28we6(tn~M8Oi(QzcFBpnQju@jm6=QioLU0ALrDP%l6tXYZ6*l^hPj zL4ihbLLd+^6%^7*Q@7#`M|ORQfto>0lJO81D7$YwsANU{=Nc6V8H$c|QFryeR7t6t zP{obB1uIld?-W#XV2O26(5a;r#aB!NbrG~^OAe~RM*1LD0CH3!D08gnY}8t<Q#+|dHfSA6hdn~0)>FWuJ$(#nB}%GlLADH)3>A9NK(SoHg@7$+sAbbv zso`b@OAx?;`6V7qP{PZ}WU`-STLb)Ot0gPlsVS$YlW*CV=*kWYZ7^N&ME=?vhq7h*)SOMwPMplba z8)q9n6xB;-pb(<4fM}v%4&WIXo?|`piqcj z6at_Q)dk3*kwa~_6&>gu8(vVqiH!tn0Z=9No{H%hZTTAQA_W`-%c^%QQ+4X*AlZ(Rqnk`QW47WsyD3|_1uJ#EF zR+_Kp^WRSH^e1(*j~HyI`;Q}uvyT=ab)u+gYJ!SIpo)qlsHlpmhAIdsiYX|Fl8TBd zh$4ul38Da@KfDh*_x?=<Iz`+m+5bp-r*Yie>fxBu!=0xsgMR9b<2P@Z7sO2D4Fd~soB>@cppkyO@zId#A(a-vGBX+_C$8V)xrl~bQ09Z~_sWGH9B1D7es z_!0wHuQIp~wg7Uwep&$=W-DT%VHqfbGqxe+r7Nv-p;6p&ZUC{a;o+a451j^DRO%CIP1T9mvUL+4JoYda~#dv+BplUDN3h7W*Bb6MPauid8{)rb66%p zydAXmyzrg&-(^H?YLmO^q?54Yrocf9;LDwz5HM#Tx7Gi(ZFVWp zay5|wce|(NBvBw3b~JI?w*ZGL`?hZk#A)iz+tyL-y^)d`c1trbpD<5pZcbfsH$e#y zqsGe4-9B#JBC>EYewkUB6#&WpdM4e^GA3C2vAxrNO~7ths>TBt&LEfkJnMkH!Xs~g ziNx^0f76kjbp-pEah91Sq`uV;<)n!RFK@V!rsKNlMaHog@;yy8QY82!q)ppQkyI#G z%Sp}D&|G^fdx1Z^iNK08!}>}A%^Kki-T3jaHT9~W6u778KY!jzT@XdBwtiP@qr9qG z;GbfhuRE&LMfL*nfAmT+CUVHdzR(D6eG{-kvaw#M1uR@{<^%sCd=Uslx-{V6wNhU9Gn+|o-0~hq zL)z_JU*C;-KFM-mCGZ;T>k9dBI^h0r-k7;V}{E!`&L)8CwT-_cPDYWbKEajQldt z3e1PSN!^lr z=OYNZo|^Q-LzDk=*%3h4hCpD=&Tt|E87tv^Ej=m8wUmy$gTQ#RzMhtc>qahuB0LtES(6~o{<9Oc(6&d1~I!}1%rWShUf(H zEyN04uc>_;L=6bFyMeRcc>W8zP>gJxha6w(09M-7xDn>&T`Hm3+ZVm$o`ft~F_Jf7 zuH(oSwbY25cFxKXy0JC%OYos9L>WiqKpY=6QC5Mw-?+%@<9#jw&m9mr0~x6clIAp} zlYn^Bj+X=NmRqBjXs08wZ)dF8G-X_V5;!tt`Y9T3(bw0(Sw~0L(ZcU`r+k&~FFdy! z&bbZg@Vqb0;W*DNJh<%LJarcW3Y52BY6lVJ)LmF(B;uh2?meZ{7Vo45vY*URqm`i*A(z+HclM5QA7`aZ*}pcXDOklyaSzYydB zL!!p#oD>9UUb%;3nMmLs-?GdBS4)-tP$OEi+HneR2G+Wf6@4=MjXbzjw#5JhiThZw z?e^6M`k2KPgq-5Ym4nmca@5~dDC3(py#~L&61r<5A(v+8Wtx~%ahskOA<Hszo6((z~$ z{%l~zMU0S*&Tk_=qF!8hb@aR{4RtVG@>9K}j|l)uv%iSDLaYuSR3c~D00GdJybLYh zVQ?f*SO(N@IQ|y>MMMlZy=KXk6islUB{*XCvlBRn^N5JIUAau;=f>)2Lg#j#Cc`%) zqOxX8-Xn}AX^8R;9+wh;-eGjp2q20T`1>z08f7#CiwIPT{5QbjbTksVbNVDynvP#2 zT3YY(Darj#S{Gr32x4i50Zxk>T0L1w_lqZd8muKsut0DsY$o~Oh0b|y6OQ9-4C$8v z_b43uYqH=?pI^*=UN4sK8=vXc=>H0G?bJRL+(Xi?lhWL($e9&&#nr_ns%t3Qw4A&^ z^7(Odf=AaOix2M4>h)4mSg||}+j;WW>q|{F-f0RWqh3Y>Mo~vSK@YpXs;emmy`rk4 zNB~*qO&|r1bAyExwed*C8hL@IX$edb~?Hf=yODhChJw(bRym?Y)KI`9v@^K?SlV3G~X zqYfA~JU8||cE>f`YXf{^16pI9OoR0MuOWeFeFv+@qc8@n>JnCaP>zi#MZy<$Q1~GD zei&s500)&gjFj$(dTAqv^9Ngb_UBwHxw){0>8h8oOl&W7+)Y_REa5% zNu9Lf`Ma!{FjKT^u#_lR$tBPXN68lULLn|-Eo#u!t zPbB*veJMb~0$2-UA@bgXQ>&oX=o1N$(ISz|3S9PHV9=D@kXa0(z?L+_AcP_0NF-Me z_&Exfn288P&`*Fs`mCOnZ=3P=&O32$&f4{w_g-`~iesBEO5!93!&a@32bAWubR6YImJpQCZ2pqK)I-N>Vh?6a^&$WQIvY zK}8|v!JL7kat1&Yv`~c&3Q<}=KaK5a3KEimq9KU}B%}%o8cIl&3ZbN?n1&&1oH2uUL|mVrRawt8fc)23Mr}QJ==~ za{BNt0uG3Y!UD4@R6nz^gP`hw@$7SIbUr3=dSK!*4?t4=rbBXWO)IQUh;386v{xQL5;gnJ{K!g&b}V{}*yaI8c!3N9;CVd2%8E literal 8231 zcmaiZRag`b@a-;LOLyq9^b!(FgD$l+EL|cc(nu)XT@p*DbS#Z@r_wAfjevAYsEBfZ z_ul{e|2&+TZ@%x$d6|d#X5>xnC57ZnIQ2}luIs}AI;hA072B-I0J648-y1AA*j3K_ z{K8=UXZMAFmn+~M(C2-)k#oJPxx(sj8JjLiocPNf_&neK`Fi5{r!Q|kdd_eBQ!+dw z-dX}=6qN{zwOLa&U=CE)E`Zk#+M>d*hsRPmsqn&tEwj@83co4Wh+3GZkr@!w6xALJ z6Vzn1A1l3iZHf3mPaqgY`LSFh)i0+a%U+Wj`Z0OX+5ist4|qBMmjM7^GUop$|HH8V zA_-ij997^Lx;GBEeNrAG3_Nx?0tx%cmCX4?m#7~5K3l#UQ3u_8nW1EY(ATp%crtv`=KC7+rm-<@Q&k8LjswoEX`M|cYf+*0_)|+zy2UQ*WIRaZ4 z9geUUZe_JqkB)PZ^9!;HOuDji6_rmaD(4*?lI=k!R3!6tu_n9vo z8gb;q8y_n~6I({^dLvXR1<*G=BJ&JWkBF;~lgKi^;3$QyoJpF1bz4ZN89+ODV>$*c z>3IW0VdC$kC^sob-}ihy;-%62>LgBEf=oOdC1x;lm{ zyG? zM*40#0rn-ies?8#4P$RhR-gZ$&4icLe)=nX5S|y&|R2{HY zY`#xc4v7p7-!tM?Pk;Qm7;kf!S%w2;?*SiiXh5}nm4bcY_p3+MAEvwQRYuQ!)Y`nN zo%}Z*nB&*abWizt$SH|zP-Z!Voqi`y>V3~*zWt_Kb(&E)Y}wpd`uCWWrKlL-s-Mpo zvkE3G$JN;Pp@A2_l?oxiSd^yeo3qa;;*z4%l#mh-&$L3Y3LyT5wy+T3eIIC`1bjT9 zH0x_BiUY81nhPBBL9p<$Nq>glrc>jV+ac`H|uVzZDTEtqG$!Ljh3ql0xC zY8@@WH}aLg<|t{Dc(gDLXie{*Ka~61| zAz+7mRK=!rMI@4Rhh|dWL7Kqct9dZ3J);rJN~wFX@S8CiNrvhrD$_oI%>XtD)*OwA zwkKiK!&k*8uyv1$qqiaxaJI_hlFOfH=9XJ91lwj9BoL*im(%k6a3(~KWeS`N4kVXn z!5cuS72P!|@k5dHj-vEvZ~4_H1;mO(LkoE1+1VXY6<>LbosS9t&JqzWSYsIs0|xp^ zde(ZSM5R@P+5TdV18I{k%t!S!9T>4YDqUcTU`AA~(d$u{ylU7L5wT)M3W-P-ZX+-c zWgRo0LPQNl5rU5}zV?yYsM23qI&!J@0pB(DYpExn(r(LkYF)P6yFnx3$m#9VI9XHi zRP$KNNT>x3$iX5iFd{^FLKc-H>ovx$@Xhf=3{eiE zg0#3`WEjd8_`o#YSz^P`aIhbH_@8qpsxq(@=4JKrE1cRj=s7GtNnqT9|58q_x=B%F6D0EUW>2 z<>YG)av;6*Zg=_;kP)=i_CX#axX*d4mhjNhDxYOmaW z$jhEyt39g2v|HEb5kV1(${5qM-Uog!T*qRbw8u~{80UR#+sCf=L`nepr}O(5M?8sd zYK33{sb*gv|Kz}T_Jxe|Bz0s094>n)N~Fuv$ET7%u6>B86Txu|s>4{3Xc&%S=)Qa> znr%-incpWy)xDSZK&J@{YiYlU5{>pNTzhYP;oN=|WGsvh;Sf$v#8KC}dOSrfMIxbI z^_;qnqp@PRT9Rt>n1cAkLYhol-|4g%^9{{0ub`XWZFtm&R7z&@S6#oEMTG{b0ah=6 zOQE;9^8bmwvZ(&C`fopDX>NeodqC(78IH5$er3qeE6Us zP@+-UVP&ePUOGqFg`?lu?aZnu>A2#y<`{sJUvG}j99yrJC7<*YWU!S#4OsO3*Y?T* z`P6Ts)d$%?ef&w^qm7(++;h=uJyQ42{iKwj@RGJWem91(aN06TWE}VhQ(e_>Qk@uw zQ`*(}- zkqEPoKtKSlZg3`%CY6L~SM{s{<)HoTXQJ=SbYuZAivk&#ay!2L{edh{>1(1SK)7Xw zj6J4^x^*)z^@DNsqlV6gb!^<;v`7D*j@eQGF{kEpjQm^3i^?E6B|nC?@(FLHsj}rQ zi?|mK8D;9`8mfdNFEK6~JVD-L8?HX9RsK=(GGeZIq~r`fl>?6!OFi7_0r>`n|E8)OH_~#AHcYj&fFAbfFQ#Zz{8D4Q z*!uQTYM!6lU1&T1yW*)M=<#rHG4%w0I81KXlJ)8X4nAk=`(ErX&%eZP-npdbSrpE8 zUc5D_Z&R*ZX2`-;#bU457#{nyjQUKt7S~Pqoe7SbQ>g&{t^fD_rF9ruFilVT{$xkFa z3!=Qj8dAlFfFZfMTlKc2rctnj;LRck8~>wERnIr?+3|u{yLO?S$t{dC`iGjmIFv5b zXwUF5&Ew!+mh*V#S+~EVB;A58HT0F27$3+f;;(ehba6bL$&1dAFU&I5eFDQhkq$d4t(pvP-F=yGR@OKQsi_;B7v`-;a(spYN<%UH*aMQ&JqynyO(np9dN(<<7y1W@VFE21<+BCo#eO=gFyGxcW`Y z+C&H+&6$0T*@Or4!nKE_TGFoJ)2oFi-oN%vicfv(Ui(nVun{*(%u72c$zDU=3PM^R zUQ?0v)TMArul%z-op5z(bLD@T;HS|(cmDRlrQm|+&QrVxYRS_eOa6DnJ1{-9?dFw9be|s_AAYIYhwWlW~pAKoQJ)s zSd)ENx?k3OG_L2TocSKWw6Wn=(}-~TSN&9aia+$Hzll!!k}f|%mLpmEN|eHpI}P`@ zhU9i;*6MQ7{%@42==TkEGcG4FTn;^}n!!CyF0|TQS}nm0IOQ-e1=8Cu_`O|zx;-o0 z>rS3)i)iuT9)YRe_;({5ydRL`S4NkJ8^}+lGO#VE^#j+S{=oBS`dPlxM?Hb7z+l%* zi4|nUS}32J?{lwS#t5!*Z23<~BJX1tJ<2UczYo_)?Tmf>%;+M=<`fs3a53M@m+b=n zdVujvv^EI!*>$EmXME{uB`9zY&(DFleb0mlTLy}^6iaQ0a5-pXqP zr0ze^s8{zFrXcw{9bv-G)gg(84>hH*qA|oVq0lA5K_(+jz_F09VO1KpP$J91YFq#= zD=jeq2?^l=H_2H6Rfq{`^y2|KkkN1mUzlLXC<>}V2thX~5meTMG+G|dk21bnX~&u& z+wwBjUN-Vdm0N}c+sa+0vxl9e-x2|BaEJSs6BR`c9MQSBhz5uelFZA%+f1`I!&IC) ze)X}*pAz&rS{<>vfWJ*Rd(0kW49OvXsoS1H0v>LdH=<$X_rn?P-w50W4!=HSPQA={ znE*Sq;UCsY#-9d=fc7|hJRm@M0y-#7d{DjFCa8rbHntg3@iN2-%t$Uc^X2NXcJK81 zrk$|!Ro`f#1LF%JwKXcK*Ar_V{Z$`DK%%(ljk(g#2- zOhe1Gd?2{#I0)-68TfdRUhz^4KBN?` zbx2VOIv5JA{w}NW3Q%b?XCH&F4}w4KSP9QW;4!!0HJp{^+L8vS9|#3gDXmO*uh8s0 z-K#S{Zp=};0UAn&F)5IV{WRH_ebvx5Y=MLIq^;1*yMK`I= zQ<7_=zL-oWLwo>$QM|2C!*j)J_`{}V0=U=@V(9S(e89YE7Ct#Gw!*|%p9UgVG|AB4 z2m*4({#!cd3NSf}fJhno5IpKL>1h`|`_poRzH%c&`ju<(<%T|dAMqrH@;wVrn_v>! zDzab;)Z?fVhdQ5Kf0kH)T0MKl_4S{p`uU6n_1!M~^!ugf8(>HXLu}+WQMe^sKAGNq zSd}0kkRG3s#A9P(NX#N1kc~sC0>c# zi;*a}Wt`JqgleJ*=y^Z$aeaDb~mDjLG1PT%k zj1gj^NT7)7?EbssR{4Z%|BbA5`H3b5Gjmhx63nM`dfa8ogb1N0UDGBsTen`^Jq z-8<%mXc@Vro0u9f3%CeiIV5Y`2i7K&+^~m1i7D8v6Xa5qkTh}Z26)hz1eH>q6lx_M znv{rSR(4f9c?6#qmIP0EbxqL&D+!$Q3LunNV4$mr23-Tvb96)K=E`N6uNg;0OH1b>t=`_v+4B*Lv!W%i6AVTjamtpo)t)q zr%GW7Y0$w%fD?=dadzrg?jKdRSNy-s0t`x!UxHaDYs*IEd1Sgdp;j{*ME zE!%%~M=CFdsm5PXd#)i|j*AZVKMIK-lRE;WN8}EcRpHRG)hL9p3ZV{MB&!fORvd{c z$<%|hwi=ZKF+{K5PHJ7#D5%L9S2dW8;O!TN80>F5%7-fy>$?sGe*7aMF$v4_>^^am zD|u2c-+d$DhOi~^k@%{_BO)+?PO%}MCxOc|M$} zOk2asfeJzsk`q$!1!4N4$3F*2p;vMAAz2XCHqyTEC4ErTvJ&^!uu@=m<>3`R$vewo&O+-rTy|78pp+<9B~}Sni5d-6 zX#&v@*~lsC3KJ5kQYOTN63UZW;$sRyScBsBGCzqj^jKh6L?m#r(KKK)G9)6dL0*vZ zB;6BE#ZEgrfK>?sa7Cu3{bA-j3(xVK_U?FXL#;$BNUca?!vGo7-JGMOLrO}>xP{M; zxSO-nf$gtS5_F@(v8zYCPzLVI@%=(A44ATFXl*I8Z{|y9nEzZLyEplO5Gj3UK zUi5p4Wu@)UJgAn9avMkqzyf^QK_38F9cJ~mck8nK0^|5O9G^NGWn11a^+-0*%k_! zpKDqOf@hLf#sVR&N&0}Dw*r>_5ziFp@G_#R%m1d%&=+Y)Lktc_K-JL-hvFU&@zcpW2O@m`xtb)>nyOENf7p@2m z37Cx^CHI=vk_Ssy4O*AmdaQ$J0QSMYGy;d8%*^yp2P1s~URW4(UJwR8F5b-3y6MNc zcKjpP^^v=ltOCj?DRg?8s&}N+mVq9v*mLTrCk5p%InMS?CTnQ!9zx&oS~P1WRaFbS z{&8IHUHyz+!(a8N8Tz+vdp`DC%1@+ zzNyKnu~O_;C%=`cPL9&s+rKttlJw8?l+%;gd{E#o-wOeRu|KoQ6Sq(S5Q`C50>Ln- zB;v^m*=7rQ^ue{vB4zh-(-vEL=}`0WNfn&u&v%MiaWgIUPt5IxyR|PtZSQA_S;sy& zIoFW|H@vv%*Xa%vRmjfP!sU?ATJ~fw2N%a53@jhMQ9T5OIGqd8LUI7z6SyZ;I3TGP98h^=@+;$!?QXhJ#|1CG%b)Ojxu`i#rv>Gb5mbWH8 zNgR0+#`s{>vL|V_&^2g#L*l)mEmyI)`Qm+vK;{s>@-i1wg?Ue&3}&zy`!jzAHOkNO z668{=z2d|0L3_uNRwVV=p#4)TfA6F`M;fuJ zEu&=Zplm5uH!kcC1B)#cP&pk$F!~Iy8{uu6r{d(kTF^6D!)vds> z^~5vrzt2FFt$UX$$oLWHTTCywB@z!x$G}Alh6yH*`o7YX6jf~nIDM;&dDAYiGUgaE zM&!!;fjQ$kY-3cs1o(OF7MpS0(L*^q#@8WbEq}y)J^2)&nAaL@{-sd_b|m(a^`{Cp zGPfyw8uEl(e_}Va@krxM7PQuAjTxy(ypb$Ay3y})ah=%s^UKdue~YWmzs%I14ICp3 zXS`K1MpFMCmi$=g!{4xa$YgPdlO;Z1e1@3$q_%Tss2nAMx;vhcWhxTOCN1&+Iia_D zN4*3D%Cj+_Ot&rFWelAYenr)RDm6&1ck#BuU3i}rvL|OJpnZh6JqZuDVKc%1ynXKj zGc~~mH>3)k?JMVEb$}EFICh`&?+iCfH@k9((wBO-AG@ZjGtvN%xw^mkZ#K!)?zKL0 zk}3S~;qdF9V*6q^079*OhbPNf4HA~q-}dTHy5XY4ht}}gH^Ny-()E`j6&h`JEN|<4 z>+|3p4JiJ;Zww(QDwn8RD#N1B$6$fK7CH^THUc3AZHZ>_?Fn`@c~C_qF;UhyAzjtl zJ6YTd&)|>cMycYm#{M;nGob@%`mf@(p+$(znH23n?SJfjhZqYa9Me4ymyv1}t}mB4 z=J>NO{^DRNZ^O5X3tN5fXoZCM!T+7Ci|*<#i>vv;TKrl#kQS=jBr*HlIi7*{@c{sTa;a-Jx23n?eILu%+MRGC1dd zVT`NVY$XCo?7wbO{I8g0P_3yNA3sYTd)qG*z4`#ttDA2!PeFL#{%h@NiTZJfS|Uvi zZ1``rW#H_rW1%-%*CBorN#L2dBw-RdmDI8QQ%W33P=>-M%ZQ#NE9)-VRJLQ$7_(^qYv{M`%_v-ei(*|?g*%-PL9MXi2K28R@f^C`+jDKyO z%Mg`ex>WV>=mkq+>{mggqh;Z%+#dP8rT%eu3Ow)W?K6YqdDe99v@FBeW8u{+37N{w z8fi~xwW4&rgIs0CjMASbLDs9s15^b=wD@_ab2#|xmYiL$78lnU+M;f-!rinefkU%y zo~X9}m9ljaP8Px&aXLPQLRY%Ijc6iUc78A*ifNZlT4)j{^i$uo2i=8);T z{Ez-ceP-78qm$FA-NqVtUX`L{PWawUWc`Aig7@LaSl^1_&$hDwOniB%Hu92A{lowp+ms;QlU8S`+X9gkD;2 zgBbYPcV8r=QDRI?&HK&CC0dXhGz*?BVXuWDRps{l5GeP5lN?qF(&r#3Y%u07qUCN# zORI#26loF=)7sp$@FSEU1M<@tRFSjSJsm%8C>pKOL=0g^BB^P4sByzaX~%fjjm?NG zn|N^9b-9(my13v{!qG9>O z{@(EKfbYklPf^(NT#AfKQP9$UkKCNdsA19r7V^sX5mll^5v7~kfn&N>QS`>@g$pQ5 z?@LJ*+v9DhZ-0 z7&DC5%~kcid<}$6N^FZqV%$7MSf=6W R{{w`zBc1>N diff --git a/man/geom_chicklet.Rd b/man/geom_chicklet.Rd index c26ce82..88be447 100644 --- a/man/geom_chicklet.Rd +++ b/man/geom_chicklet.Rd @@ -7,16 +7,23 @@ \title{Chicklet (rounded segmented column) charts} \format{An object of class \code{GeomChicklet} (inherits from \code{GeomRrect}, \code{Geom}, \code{ggproto}, \code{gg}) of length 7.} \usage{ -geom_chicklet(mapping = NULL, data = NULL, +geom_chicklet( + mapping = NULL, + data = NULL, position = ggplot2::position_stack(reverse = TRUE), - radius = grid::unit(3, "pt"), ..., width = NULL, na.rm = FALSE, - show.legend = NA, inherit.aes = TRUE) + radius = grid::unit(3, "pt"), + ..., + width = NULL, + na.rm = FALSE, + show.legend = NA, + inherit.aes = TRUE +) GeomChicklet } \arguments{ -\item{mapping}{Set of aesthetic mappings created by \code{\link[=aes]{aes()}} or -\code{\link[=aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the +\item{mapping}{Set of aesthetic mappings created by \code{\link[ggplot2:aes]{aes()}} or +\code{\link[ggplot2:aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} @@ -24,11 +31,11 @@ plot. You must supply \code{mapping} if there is no plot mapping.} options: If \code{NULL}, the default, the data is inherited from the plot -data as specified in the call to \code{\link[=ggplot]{ggplot()}}. +data as specified in the call to \code{\link[ggplot2:ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See -\code{\link[=fortify]{fortify()}} for which variables will be created. +\code{\link[ggplot2:fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and @@ -40,7 +47,7 @@ a call to a position adjustment function.} \item{radius}{corner radius (default 3pt)} -\item{...}{Other arguments passed on to \code{\link[=layer]{layer()}}. These are +\item{...}{Other arguments passed on to \code{\link[ggplot2:layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} @@ -59,7 +66,7 @@ display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from -the default plot specification, e.g. \code{\link[=borders]{borders()}}.} +the default plot specification, e.g. \code{\link[ggplot2:borders]{borders()}}.} } \description{ This geom behaves much like \code{\link[ggplot2:geom_col]{ggplot2::geom_col()}} but provides the option to