Thanks for the dput() data.frame. It makes looking at the problem a lot
easier.
Basically you have a mucked-up data.frame. That is, what you see is not what
you think you have. You only have one variable in the data.frame and that is
the country names.
For some reason the numbers are being considered as row names not as a
variable. Do a str(filename) to see what is happening. You do need to have an
x and y value.
Try something like this:
library(ggplot2)
dat1$val <- rownames(dat1) # create a new y value from the row names
ggplot(dat1, aes(COUNTRY, val))+
geom_bar(stat = "identity", colour = "blue", fill = 'red', position =
"dodge") +
coord_flip()
It''s not very pretty but it may give you a start. BTW I see that some
countries (GB, CA, Au amongst others) have multiple entries. Does this make
sense or should you aggregate before graphing?
John Kane
Kingston ON Canada
-----Original Message-----
From: mrjeffto...@gmail.com
Sent: Wed, 15 Jan 2014 09:20:11 -0800
To: jrkrid...@inbox.com
Subject: Re: [R] Barplot not showing all labels
Sorry guys, I'm running into an issue. I have a data frame. Here is the dput
output having run:
dput(head((non_us),25), file = "C:/Users/jeffjohn/Desktop/non_us_sam.csv",
control = c("keepNA", "keepInteger","showAttributes"))
structure(list(COUNTRY = structure(c(4L, 25L, 35L, 12L, 4L, 5L,
14L, 14L, 14L, 12L, 62L, 28L, 9L, 41L, 14L, 34L, 66L, 41L, 21L,
32L, 4L, 9L, 14L, 4L, 28L), .Label = c("AE", "AR", "AT", "AU",
"BB", "BD", "BE", "BH", "BM", "BN", "BO", "BR", "BS", "CA", "CH",
"CM", "CN", "CO", "CR", "CY", "DE", "DK", "DO", "EC", "ES", "FI",
"FR", "GB", "GR", "GU", "HK", "ID", "IE", "IL", "IN", "IO", "IT",
"JM", "JP", "KH", "KR", "KY", "LU", "LV", "MO", "MX", "MY", "NG",
"NL", "NO", "NZ", "PA", "PE", "PG", "PH", "PR", "PT", "RO", "RU",
"SA", "SE", "SG", "TC", "TH", "TT", "TW", "TZ", "ZA"), class = "factor")),
.Names = "COUNTRY", row.names = c(329L,
1146L, 1474L, 1491L, 1585L, 1997L, 2190L, 2382L, 2442L, 2499L,
2703L, 3151L, 3278L, 3652L, 4730L, 5106L, 5214L, 5447L, 5710L,
5924L, 6185L, 6204L, 6258L, 6383L, 6811L), class = "data.frame")
This data frame is called "non_us"
I want to plot it so that it shows a chart of COUNTRY and the frequency of each
(pretty simple I think). However, I don't know what to pass in for 'aes'.
When I type names(non_us) it only shows "COUNTRY"
Any suggestions for what to use for X and Y (assuming both are needed)?
ggplot(non_us, aes(x=?, y=?))+ geom_bar(stat = "identity", colour = "red") +
coord_flip()
I appreciate your help VERY MUCH!
Jeff
World Vision
On Tue, Jan 14, 2014 at 3:44 PM, Jeff Johnson <mrjeffto...@gmail.com> wrote:
Thanks John (and everyone else as well). John's example got it very close. I
can tweak from here. Thanks!
On Tue, Jan 14, 2014 at 1:22 PM, John Kane <jrkrid...@inbox.com> wrote:
I am not sure that I got the data correctly--it is much better to
supply sample data using dput(). See ?dput for more information but I think
something like this will work
dat1 / <- structure(list(cty = structure(1:70, .Label = c("AE", "AN", "AR",
"AT", "AU", "BB", "BD", "BE", "BH", "BM", "BN", "BO", "BR", "BS",
"CA", "CH", "CM", "CN", "CO", "CR", "CY", "DE", "DK", "DO", "EC",
"ES", "FI", "FR", "GB", "GR", "GU", "HK", "ID", "IE", "IL", "IN",
"IO", "IT", "JM", "JP", "KH", "KR", "KY", "LU", "LV", "MO", "MX",
"MY", "NG", "NL", "NO", "NZ", "PA", "PE", "PG", "PH", "PR", "PT",
"RO", "RU", "SA", "SE", "SG", "TC", "TH", "TT", "TW", "TZ", "US",
"ZA"), class = "factor"), val = c(0, 3, 0, 2, 1, 31, 4, 1, 1,
1, 45, 1, 1, 4, 5, 86, 3, 1, 8, 1, 2, 1, 8, 2, 1, 2, 4, 2, 4,
35, 3, 3, 14, 3, 5, 2, 5, 1, 2, 1, 15, 1, 11, 2, 2, 1, 1, 23,
7, 1, 6, 1, 3, 1, 2, 1, 1, 8, 1, 1, 1, 1, 1, 18, 1, 1, 2, 11,
1, 0)), .Names = c("cty", "val"), row.names = c(NA, -70L), class =
"data.frame")
library(ggplot2)
ggplot(dat1, aes(cty, val))+ geom_bar(stat = "identity", colour = "red") +
coord_flip()
It will take some cleaning up using theme() but I think it supplies the
essentials that you want.
John Kane
Kingston ON Canada
> -----Original Message-----
> From: mrjeffto...@gmail.com
> Sent: Mon, 13 Jan 2014 11:15:46 -0800
> To: r-help@r-project.org
> Subject: [R] Barplot not showing all labels
>
> I have a table that consists of the following country codes and
> frequencies:
> AE AN AR AT AU BB BD BE BH BM BN BO BR BS CA CH CM CN CO CR CY DE DK
> DO
> EC ES
> 0 3 0 2 1 31 4 1 1 1 45 1 1 4 5 86 3 1 8 1 2 1 8 2
> 1
> 2 4
> FI FR GB GR GU HK ID IE IL IN IO IT JM JP KH KR KY LU LV MO MX MY NG NL
> NO
> NZ PA
> 2 4 35 3 3 14 3 5 2 5 1 2 1 15 1 11 2 2 1 1 23 7 1 6
> 1
> 3 1
> PE PG PH PR PT RO RU SA SE SG TC TH TT TW TZ US ZA
> 2 1 1 8 1 1 1 1 1 18 1 1 2 11 1 0 3
>
> I am executing:
> non_us <- table(subset(mydf, (COUNTRY %in% validcountries) & COUNTRY !=
> "US", select = COUNTRY))
>
> barplot(non_us,horiz=TRUE,xlab = "Count", ylab = "Country",main= "Count
> of
> Non-US Records by Country",col="red")
>
> It creates the attached image (I hope images come through on email).
> Notice
> that it is not displaying all of the country codes. It shows bars for
> each
> country, but only 6 are appearing.
>
> Does anyone have a suggestion? I'm open to using qplot, ggplot or ggplot2
> (and have tried that), but I want a bar (horizontal) chart not a column
> chart.
>
> Thanks in advance.
>
> --
> Jeff
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> [https://stat.ethz.ch/mailman/listinfo/r-help]
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> [http://www.R-project.org/posting-guide.html]
> and provide commented, minimal, self-contained, reproducible code.
____________________________________________________________
FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on your
desktop!
Check it out at http://www.inbox.com/marineaquarium
[http://www.inbox.com/marineaquarium]
--
Jeff
--
Jeff
____________________________________________________________
FREE ONLINE PHOTOSHARING - Share your photos online with your friends and
family!
Visit http://www.inbox.com/photosharing to find out more!
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
