r - How to create a dot plot with a lot of values in ggplot2 -

-



i created bar chart show population distribution of vietnam. vietnam2015 data:

 year age.group est.pop 1  2015       0-4    7753 2  2015       5-9    7233 3  2015     10-14    6623 4  2015     15-19    6982 5  2015     20-24    8817 6  2015     25-29    8674 7  2015     30-34    7947 8  2015     35-39    7166 9  2015     40-44    6653 10 2015     45-49    6011 11 2015     50-54    5469 12 2015     55-59    4623 13 2015     60-64    3310 14 2015     65-69    1896 15 2015     70-74    1375 16 2015     75-79    1162 17 2015       80+    1878

this bar chart , wondering if make dot plot instead of bar chart. 

library(tidyverse)  vietnam2015 %>%   filter(age.group != "5-9") %>% # somehow weird value creeped data frame, therefor filtered out.   ggplot(aes(x = age.group, y = est.pop)) +   geom_col(colour = "black",            fill = "#ffeb3b")

enter image description here

now know dot plot data not many data points. can create dot plot 1 dot represents 1000 people or million? communicate better bars consist of people. flowingdata's example , middle image:

histogram explained

maybe can generate values 0 upto est.pop each age.group , plot. i'm sure there other better ways.

library(reshape2)  df2 = dcast(data = df, year~age.group, value.var = "est.pop")  df3 = do.call(rbind, lapply(2:ncol(df2), function(i) data.frame(age.group = names(df2)[i], est.pop = seq(0, df2[,i], 200))))  ggplot(data = df3[df3$age.group != "5-9",],    aes(x = factor(age.group), y = est.pop)) + geom_point()

enter image description here

data

df = structure(list(year = c(2015l, 2015l, 2015l, 2015l, 2015l, 2015l,  2015l, 2015l, 2015l, 2015l, 2015l, 2015l, 2015l, 2015l, 2015l,  2015l, 2015l), age.group = c("0-4", "5-9", "10-14", "15-19",  "20-24", "25-29", "30-34", "35-39", "40-44", "45-49", "50-54",  "55-59", "60-64", "65-69", "70-74", "75-79", "80+"), est.pop = c(7753l,  7233l, 6623l, 6982l, 8817l, 8674l, 7947l, 7166l, 6653l, 6011l,  5469l, 4623l, 3310l, 1896l, 1375l, 1162l, 1878l)), .names = c("year",  "age.group", "est.pop"), class = "data.frame", row.names = c("1",  "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13",  "14", "15", "16", "17"))




wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more