From 87274d07ebb39c008a0c721866397ec71a9ae6b2 Mon Sep 17 00:00:00 2001
From: Jordan Rosenblum
Date: Tue, 24 Mar 2015 21:01:10 -0400
Subject: [PATCH 01/11] Update 2015-03-24-JordanRosenblum-Blogpost.md
---
_posts/2015-03-24-JordanRosenblum-Blogpost.md | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/_posts/2015-03-24-JordanRosenblum-Blogpost.md b/_posts/2015-03-24-JordanRosenblum-Blogpost.md
index 538bda2..175bd3f 100644
--- a/_posts/2015-03-24-JordanRosenblum-Blogpost.md
+++ b/_posts/2015-03-24-JordanRosenblum-Blogpost.md
@@ -18,7 +18,7 @@ I found charts which outline the breakdown of consumer expenditures going back t
-One example from 2011 is below:
+One example from 2009 is below:

From 475cb3b9aac2e6da586b718dfacc3aa3bcd609e0 Mon Sep 17 00:00:00 2001
From: Shruti Pandey
Date: Tue, 24 Mar 2015 21:06:13 -0400
Subject: [PATCH 02/11] add file
---
_posts/2015-03-24-shrutiblog.html | 15 +++++++++++++++
1 file changed, 15 insertions(+)
create mode 100644 _posts/2015-03-24-shrutiblog.html
diff --git a/_posts/2015-03-24-shrutiblog.html b/_posts/2015-03-24-shrutiblog.html
new file mode 100644
index 0000000..2dbd68e
--- /dev/null
+++ b/_posts/2015-03-24-shrutiblog.html
@@ -0,0 +1,15 @@
+
+
+
+Title
+
+
+
+
+Thanks for visiting Shruti's Blog!
+
+Shruti Blog!
+
+
+
+
From 65cabb6549b463881a4a595b33e7c89e682605ca Mon Sep 17 00:00:00 2001
From: Bell-Wang
Date: Tue, 24 Mar 2015 23:44:39 -0400
Subject: [PATCH 03/11] Create _post
---
_post | 1 +
1 file changed, 1 insertion(+)
create mode 100644 _post
diff --git a/_post b/_post
new file mode 100644
index 0000000..8b13789
--- /dev/null
+++ b/_post
@@ -0,0 +1 @@
+
From 0043775a1d587cbc393917a3f77a0d6619b617db Mon Sep 17 00:00:00 2001
From: Bell-Wang
Date: Tue, 24 Mar 2015 23:44:59 -0400
Subject: [PATCH 04/11] Delete _post
---
_post | 1 -
1 file changed, 1 deletion(-)
delete mode 100644 _post
diff --git a/_post b/_post
deleted file mode 100644
index 8b13789..0000000
--- a/_post
+++ /dev/null
@@ -1 +0,0 @@
-
From c5aaa6e172d41dad34d00920f952b000194a9c2c Mon Sep 17 00:00:00 2001
From: Bell-Wang
Date: Tue, 24 Mar 2015 23:52:03 -0400
Subject: [PATCH 05/11] Create Yuxin's Blog Post.md
---
_posts/Yuxin's Blog Post.md | 4 ++++
1 file changed, 4 insertions(+)
create mode 100644 _posts/Yuxin's Blog Post.md
diff --git a/_posts/Yuxin's Blog Post.md b/_posts/Yuxin's Blog Post.md
new file mode 100644
index 0000000..d401e98
--- /dev/null
+++ b/_posts/Yuxin's Blog Post.md
@@ -0,0 +1,4 @@
+Please check my project page is [here](http://bell-wang.github.io/critique-on-graph).
+
+
+Thank you!
From 4da4da2276c8482f783e247cfd9d2d899048d378 Mon Sep 17 00:00:00 2001
From: Bell-Wang
Date: Tue, 24 Mar 2015 23:58:55 -0400
Subject: [PATCH 06/11] Create Rcode
---
_posts/Rcode | 65 ++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 65 insertions(+)
create mode 100644 _posts/Rcode
diff --git a/_posts/Rcode b/_posts/Rcode
new file mode 100644
index 0000000..0c34389
--- /dev/null
+++ b/_posts/Rcode
@@ -0,0 +1,65 @@
+library(dplr)
+library(ggplot2)
+library(gplots)
+library(scale)
+library(reshape)
+library(devtools)
+
+
+Ethnicity<-c("Native American","Asian","Pacific Islander","Multi","Hispanic","African American","White")
+IntellectualDisability <- c(0,43,0,0,200,299,23)
+HardofHearing <-c(0,0,0,0,39,24,0)
+Deaf<-c(0,0,0,0,16,12,0)
+SpeechorLanguageImpairment <- c(0,182,0,47,578,391,92)
+VisualImpairment <-c(0,0,0,0,20,22,0)
+EmotionalDisturbance <- c(0,14,0,14,75,285,24)
+OrthopedicImpairment <- c(0,0,0,0,28,0,0)
+OtherHealthImpairment <-c(0,0,0,15,63,145,40)
+SpecificLearningDisability <-c(0,100,12,43,654,891,87)
+DeafBlindness <-c(0,0,0,0,0,0,0)
+MultipleDisability <-c(0,0,0,0,23,17,0)
+Autism <-c(0,67,0,28,112,158,66)
+TraumaticBrainInjury <-c(0,0,0,0,0,12,0)
+df <- data.frame(Ethnicity,SpecificLearningDisability,SpeechorLanguageImpairment,IntellectualDisability,Autism,EmotionalDisturbance,OtherHealthImpairment,HardofHearing,VisualImpairment,MultipleDisability,Deaf,
+ OrthopedicImpairment,TraumaticBrainInjury,DeafBlindness)
+
+num <-colSums(Filter(is.numeric, df))
+ndata<- data.frame(names(num),num)
+
+
+n1<-(names(num))
+n2<-c(ndata[,2])
+newd <-data.frame(n1,n2)
+col_headings <-c("case","num")
+names(newd) <- col_headings
+
+newd1 <-newd %>%
+ arrange(desc(num))
+newd1<- newd1 %>%
+ mutate(per=num/sum(num)*100)
+
+testr <-c("Other10", sum(newd1$num)-newd1$num[1]-newd1$num[2],100-newd1$per[1]-newd1$per[2])
+newd1[,1] <- sapply(newd1[,1],as.character)
+pien<-rbind(newd1[1:2,],testr)
+sum(as.numeric(pien$per))
+
+
+pic<-ggplot(pien,aes(x="",y=as.numeric(per),fill=case))+geom_bar(stat="identity")+ggtitle("SpecialEducationsStudents(5,088 students)")+coord_polar(theta="y")+theme(axis.ticks=element_blank(),axis.title=element_blank(),axis.text.y=element_blank())+geom_text(aes(y=cumsum(as.numeric(pien$per))- as.numeric(pien$per)/2,label=percent(round(as.numeric(pien$per),2)/100)),color="yellow", size=8)+
+ scale_fill_manual(name="Instance",breaks=c("SpecificLearningDisability","SpeechorLanguageImpairment","Other10"),values=c("grey","blue","#FF6262"))+
+ scale_y_continuous(breaks=cumsum(as.numeric(pien$per))- as.numeric(pien$per)/2, labels=pien$case)
+print(pic)
+
+
+df<-df %>%
+ mutate(total=rowSums(Filter(is.numeric, df))) %>%
+ arrange(total)
+
+df.m <-melt(df[2:7,1:13], id.vars="Ethnicity")
+stpic<-ggplot(df.m, aes(x=Ethnicity, y=value,fill=variable)) +geom_bar(stat="identity",position="stack",width=0.75)+
+ scale_fill_discrete(name="Instance")+scale_x_discrete("Ethnicity")+scale_y_continuous("Number of Instances")+scale_colour_brewer(palette="Blues")
+
+dodgepic<-ggplot(df.m, aes(x=Ethnicity, y=value,fill=variable)) +geom_bar(stat="identity",position="dodge",width=0.9)+
+ scale_fill_discrete(name="Instance")+scale_x_discrete("Ethnicity")+scale_y_continuous("Number of Instances")+theme(legend.text=element_text(size=7))
+
+stpicfa<- stpic+coord_flip()+facet_wrap(~variable,nrow=4)+theme(legend.text=element_text(size=6),strip.text.x=element_text(size=7))
+print(stpicfa)
From d88ca392741bd6ce2796907a29f31a578e312279 Mon Sep 17 00:00:00 2001
From: EHDEV
Date: Wed, 25 Mar 2015 20:14:37 -0400
Subject: [PATCH 07/11] Blog Post US vs. Europe Rail System
---
...15-03-24-US-vs-Europe-Rail-System.markdown | 38 ++++++++++++++++++
assets/alt_bar.png | Bin 0 -> 248829 bytes
assets/alt_line.png | Bin 0 -> 445331 bytes
assets/grouped_all.png | Bin 0 -> 32561 bytes
assets/plots.png | Bin 0 -> 116492 bytes
assets/source_chart.jpg | Bin 0 -> 99510 bytes
6 files changed, 38 insertions(+)
create mode 100644 _posts/2015-03-24-US-vs-Europe-Rail-System.markdown
create mode 100644 assets/alt_bar.png
create mode 100644 assets/alt_line.png
create mode 100644 assets/grouped_all.png
create mode 100644 assets/plots.png
create mode 100644 assets/source_chart.jpg
diff --git a/_posts/2015-03-24-US-vs-Europe-Rail-System.markdown b/_posts/2015-03-24-US-vs-Europe-Rail-System.markdown
new file mode 100644
index 0000000..a9172a9
--- /dev/null
+++ b/_posts/2015-03-24-US-vs-Europe-Rail-System.markdown
@@ -0,0 +1,38 @@
+---
+layout: post
+title: "US Rail System vs Europe"
+date: 2015-03-24
+---
+
+
+
+The author states in the blog,
+ "A good measure of safety is passenger miles traveled per reported passenger injury (defined here to include fatalities). A higher number is better: It means that a passenger can travel more miles before expecting to face an injury."
+
+
+
+In the blog, the author attempts to show the bad condition of the US passenger train system by comparing passenger miles traveled per reported passenger injury with the worst rated rail systems of European countries. This is done using a time-series line graph that presents miles traveled for the US and the 6 European countries with the worst rated rail systems.
+
+With the graph, the author aims to demonstrate to the reader the frequency in which injuries occur in the rail system of the US as compared with the six worst rail systems in Europe for each of the years between 2004 and 2012.
+
+Although the chart seems to passably carry the intended message, it still required a close look and deeper observation to completely understand its intent. The choice of the line chart is one of the reasons for the confusion of the reader. When I first saw the chart, I immediately began to look for year-to-year changes in miles travelled per reported injury, for each of the countries instead of looking to compare the y-values of each country against the US. I believe the message can be better carried with a grouped/stacked bar chart or an area chart.
+
+Here is an example of a slightly better chart with the data for all the countries in one plot:
+
+
+
+But this still runs into the problem of too much information in one plot that may distract the reader.
+
+Also, while the author intends to compare the US against the lowest ranked countries in terms of their rail systems, he inadvertently leads us to compare each country with one another by putting everything in one chart. Instead, the author could make a better and stronger statement with six plots that show the numbers for the US vs. each of the other countries, as I will demonstrate below.
+
+Lastly, I must object to the choice of colors and dashed lines in the graph. Even though, the author tried to make the US data distinct by using a solid red line, the dashed lines for the other countries and the colors of the lines make the graph confusing. It's not very easy to identify the countries in the graph.
+
+Although they take up relatively more space, these six charts are better because we can better compare the US's rail system against each of the countries. The contrast between the US and the other countries is clearer and more dramatic.
+
+
+
+
+and alternative visualizations:
+
+
+
\ No newline at end of file
diff --git a/assets/alt_bar.png b/assets/alt_bar.png
new file mode 100644
index 0000000000000000000000000000000000000000..748c8b5cdf073d03ba27e2ec9982e3b02e693c69
GIT binary patch
literal 248829
zcmeGEby!sGw?B>pqJpS&r-Xpy00Kj!q)JIjN=e5sbP5JNBPgMyASLBUOUuAef^>%r
zFf`IJ#CPNKJU+h9;atD-`Rn)3@w%LA&)&25z3+Ri^;)kLH{qJ<%Ga*YUBSV@xu&Y3
z@DK-wuoDO8qBp@M;7r2Rt0g!%S1Il8-qlpSdzVGi&E<)mqcskWN_d?9WdrRts#K$g
z1cZDfxZLl>DJu}6arf=34o+`*CceYvE$ou2t7^m=&
z%;U-}g!tBu_~3y8FC#vakl{a7p+f6$50ap*xXa%RD=7QkUAchsw%vkI8}}7C%4WVq
z+nfQ6i;VZb4kz9a4VxIY#q(iHpa*IUxAz%ir~d>
zF0}mEv{V9Hx_bI3!Vam3gxHi;5%$j6K_5!Hh8xF^azRt6QsRvtJQ|p?NQ~wL&1d;
zB#*pUg$^{0HRW#&JuF5WF7`2eQ1RX3V4|JoMn0;PSbJGLedFgMZqn_wFv;ix&>TvM
z$5h1*aOrK)5^
zouoGNP@Eu>3Gc`YY;VzjCr%QxnT}
zw?{m3z3j+G3RKSwWfgQhN
zkBeR0f*f__^|h~6J(o>G
zuxFO1>{wP5(B9ilA2JSH3pxZP*rh1jNmPtSMgqq&b84r9bxZ7A;M4Sme^`I$-=K@koMpfeZ#kqfG|NgAVeEDh!?|Z{tp;fV^r+fg=2ZRlaZ`*
zF%hasDt@XtD$*ZhdX+!(K1y;_+hya7J(#`Y2KFI7V6O^2ijv~ZWU*vH^OEy7#k}Py
zF?^Eqprn)Xt;}2V2-fDXnS0^cAGG5&Z*gI{ZMgTiT&%6FJ*-o#a@seos5|spncheX
zU^REib;IrN?PROxMC9h@mi1FDIV~B{ML$v5O6Ta^w9U8mC>1WfTncw{2NPAvfnnpU
zRkx}xRWViRZwhT*+DzRPo+Fy=m?Q2mi(%G$r6s8IQ|~c1uTJhm@oZOZbCsAP+bo)*
z#H`AP5ctf+X3RZyj=LOY9I%Hmz1OpZ@4**oOyFy3Hhl@bUcKGD*f-(rO6|ezi|twM
z*f)}Kmv!IhIO0;=%L_BTXZLiwd+Z{Sw5fQUX?P2(CVe4a?Q%RwGEuSLYt3(bJ0Lp$75AXk2U
z^)=s3lkD8Q6uWnJaf_6~{hgChHs#F)eq`pcee5S6-l>Xx%bQP~KbYT{C+4G}x3KDv^RogC20GM<*KI-m&|jJA2f+%jMf&kSndVo>`lruRIkE
zf{`|twzQ+v;f0aMBp7misv&w=aG?BA7XA*t=^brWZjdNMf9AW$lpTHcj#@>Msnl`H
z)l6FG6XV1@8DZ#r_@m7dgOcl-AVdwekn|^>TVz3Rq|GHYEgM&JRi*KruT3V
zR7WQJY%0DmPMWjY=nbOKy_2V(d0u#uC3OT
z#c6YOf@ZuGZ&$P!k#u*7g+tk>cc7BFUt;m_2ph(
zvuouNp@2KV?xGVk
z+|v9Pd3^8r8J;}AKAM0oV^G-R!)nt9em#2+f4X_6?+Y~7i`EMTdd#}O>m@ItFJn!K
z%-}VT4)j)?Rwc*03h$EMC7!gYWj@i|)LKQaX~5D(Wl;fvqEc9*#rw_ruZzD;h15^b
zx6#p(etOQ^riJtDnwl!^v>G2yDZaPo(>?KsBbRN48U8UBRxTFS{N7Hkz^`#|q`W17Lnmu@a~5wWM`x&nw>0ao
zUq}GQXQu^NS$_S*-9ehwKuwe7u8W&B%WZxUenD25D=aK5Qf^jHBpxa#{e3&|O`6r#
z-Q86}K)}n(i{DF_-^I;F00ahu1q6izgoOBjU+_VFoZZd6`JAC_e?8=%=O|c1E#2%~
z-R)eQSxTb!>E9v$xb@M$w}M0j1^>MDk4t~wDkX3>g+HeB
z*LwXr3oMw-6)Az=i!XCUkpskxgCmEdsvxi9jk_}8_sPV@WdAfr&CQL!4XmmjD{A-p
zWp*J;>ENWogZD4wbA>G;!&r_%f>S~vArYBE*CSZPC4{Ih#gQV_U!(pOu@^adxF52cE2)&o3cuqCM;
zUEv3@yjQr=pW^+mKisPts!S$jl5+kZ?%_(8qY^alq7M1r4+Gr7f&U;eUqNh4SsvKk59Rvi+a!{2vtj
z9~4~q|C8TQrxJ(EC|G>{pM2zfO2MK^9qtP4-`u$sRLiGde{3@SjrZ^+_q_Ka<`lzx9P`MB7p~zo-5u;g0Sfcv(p_j8_p2@
z<)LB?7vH`ls$~28V0u$_bif>sS)22Ez`7r~D%61V!O?C-eaZzL0skLF(CLU(!t#KF
z4zn)Ppd(aJa*6}oqy-aMmN0uS@*Hv~w@0AB5JodJ;Wd?lHf28i9_q&MN-y@qPAeOn
zea5-|6kDH0J|*)rn0U659>F?ek+zTI>?PNbib300T3Uid2gk;eimK+{DL8Hn6bE|1
zGM%RCq|FkIZc5L1)$cmg$FG-fl*nRBswM;i7Vnd{L7T}S`V4iuWyM*Gi;FW$FHr0q
zq^~*n4-$e75{O_#^vORi9R3Kt%+z`;H~zW@d$P8E!k-q3qWVowgIkCa1&6$~;km!)
zp`13p3WKEUv|Qcj>wHo4t#0v0#v7_%Y2;dm3*#*10^6WQvNKeJ@cLQvO~nlig~
z?v=jX?Q@>VUg_QiWiTOHhMf`Ue#za%cnEJ-q`9P(kFP^3`>3x=!k?ufG_0MeHFUMq0(6aML@z@1X$Kh8OEbwt8t9S<|
z)tz5^=>LYZe`5*TWE@owxb&_8aI=h3aZwMj24%MIR9H>*3#&}zf?_@%jm{fn`MS2`C%d&@K
z(7#~w`z72Wc8;)Sq-9aqtY;>BH-fk575ngA3)(SWJqu}lE4MhdMxl5}l=yW*>wtg&
zAFzJ0n^Zi4QU7sE@+$2`fpW|})pBdrN6~0#*)3?%O3U(IgKtQyAc$pBP^liG51l`kbtF
zDt>dUM5?QY7h~Z^oA>JLL1yZHpXgzvQy%dSD+x_Niq|IdKXUtH1%rzySe{Tq1T5T<
zWT7u#QjyJvxhOi4;#jCe#?2v9#BGp0VH%{+Ooj1i11iYJo#i0`WS)57IKSvj9FjA<
z5F!PGe*C&&OT79a8j16^M1Xpv*VDO)4kT@1-5*2xBc5)ZZB0cw?6wewhGOad0~oaD
zdN!A%vWY>&c#=
ze~>enpG45Sh)AO6=3ib9DDDujkW%;@ZJ?m8i+)pBQzkoD%m6{D)Vfc1NARl@Nw0Yp
zijF195T)^mZJ6Ymir?;vYPHvTS1>ynl7JQDHsOOwNif~cpq`WKHai|Lo8u8u#b;aC
zT6GDMylkhUz-9|wF09DrGb;Z;?_7B!Edht5Pxf?678A2xw-N0!d#I(cr13N&U5$;%
z$@gdDWoYl{5P&-V%LE~c$;)SIyxHn+-a7EP^feA6Fla|2O(R^c7bCM*Rdd7{w8;sr
zp8WYzZ1ym4*=VZ0qUrd1sLUIegF~C3U7L|`cEu2@`Yp-&*JFE;_4|=kX8iR>oBk(H
z#I@Hg{1!ubiYi%$PR~GWtu*v8Z9u0(aLk@9Hfic;KG{(<18q?pqqG~1diaOH|50n(
zS{w+!l8GfNzf!?U_0+L5%q&J+sdsQ}>SWg#L{_145`kanTgGw2ksHEk5jM_Yd3tgj
zE>5@6KwUF^@!-g7!b2Z+cP){*4JJNNe0o@n!58hiU$CZ~cBliZ5BNc3*1A!Jkv%=|
z@#ELwfGN6-SiG<*kL3TtRs2M9#$!C|nK&KdF277*7c})X+GqIFRd`OS@2#QN#~PID
zmR2$|4pGK?0Cos>hojtzuxr%<*jfP0zoF)mDJ=4km`Y)S4Fii;NRFw^_=?#`=kVgs
z$(|*Q6DZ;Kmzx){Yth
z1}!I!D1=Hst6*~#LA#b0o|R+Y!dDPjRNv^KzEp-xDR}hTXKyCxlCrtFr1*6>p(ez5
zRHY#b>|_Z>+0et}8)w5gQ(K*8?-}65@LDE45r=kJ_<@N%vSes9HJ0vA!+k#`A8sTb
zl00Ykw$nOC^b6{^Gsei$Fj_L%SrCYg-<`u*`6$Ah4WXd)G%^uwL3ck|62dg2mz+-{
zkST-A4tu1S93f5@ZnAQB^(G2?9@sAb#jHWPsC
z3#-?nUJ7SZ4JwVKVL)LLwT9!JY=y%i$cK5%9o$In@M~WHwU%VI;rX-`E>o#4cYl^w)bd@nq#=dj
zd^^)jse;oEvy)ARg&UumDBt7v(yX0U1TI&&xnf?Y9a)(M?oD`M=ENr4wXgRc4Fw(R
zPsYbg63Eq}8P{704fiJfT-1x$y!#hIIOK2OLD)McEjmKO?nCc7mp
z`+C`LTM#`A`u;&BI*0}jZ
ze9M=sJYh?dnnAE(-=o;iNe3%!H^l0T83
z5X65bIO?e~bL^4rZ?*o&0$3}h?}+HFvzW&Hg&ckbYlGtB?D9`h;VjDR2_VjeJFGPF
zWFdFi)ewyGj8{~(j3FwoUOX@IWeaOYSgK1C6#PsM@aa0?MKeg*bRk7~F}oKS(q_S3
zYCl5{n?2bhK+Pb+SS^>OCdyYmyQ7|ItI#eDlIU<0{!3eO40~0S1i&?x8oy-ljUk+m
z4|l+tt#KLb_05z8_}yQlP~sFs%LZK(*AdcNN|Mku3qL#PhJQ1(SHCnNooOet+q?7R
zU&{H9+H1-MZxWFhSw!r2FWNJVm6#y6h7-J*IM%K-61X5+Rd6iTd7~oLN9xOwRS9HX
ztW?dO3~(BX4e=Rg_Ab&;OWF-?3s2-UjY;$uu03ue~dr#>$V9WgatLr)f^%
z9flhSqQ1TfVBJ;aO*r;eKS~V8{C@fLD*#Q>eV^czdB#=c^a)6QvOsuZ69`->p7D{Y
zus*&+^4y6K<~qlUOA$Zizx565x;Zaa4`#;v2xacl=bwb27!TSXDCt%I{7TfvS1}%Y
zK~zz^OXKkiu)a4LgXM?YOY$r)w?6UW>BrD0HOys1^0&8H;oFK|3Qo_Z4=(g(&=)uL
z9I-yQrx{{YivE~i)UIDZ#$fOHKA``tubT{B0EiTs5#ZRA?D>ipHITx7!J}9(
zGcn>=;n+@qyyNWx{mpygXT7q=_{X0husi;+&vS@G04XJE;ml{yT^PUNnFNfn8nFLE1
z^U2RpC@Zy>{bSiK6vV#cAzB@Ymr0UYz1@2s>KHRjzjK31c_o^LLDjtf_2DZn