[R] Antwort: RE: How to plot a bunch of dichotomous code variables in one plot using ggplot2

[Bob Rudis]

(s/marplot/barplot)

On Wed, Oct 5, 2016 at 10:35 AM, Bob Rudis <bob at rud.is> wrote:

> No need to bring in so many dependencies for a simple ggplot2 marplot:
>
> ds <- stack(ds)
> ggplot(ds[ds$values==1,], aes(ind)) + geom_bar()
>
> On Wed, Oct 5, 2016 at 10:17 AM, Thierry Onkelinx <
> thierry.onkelinx at inbo.be> wrote:
>
>> Here is a ggplot2, tidyr, dplyr solution
>>
>> library(tidyr)
>> library(dplyr)
>> library(ggplot2)
>> ds %>%
>>   gather() %>%
>>   group_by(key) %>%
>>   summarize(total = sum(value)) %>%
>>   ggplot(aes(x = key, y = total)) +
>>   geom_bar(stat = "identity")
>>
>>
>> ir. Thierry Onkelinx
>> Instituut voor natuur- en bosonderzoek / Research Institute for Nature
>> and Forest
>> team Biometrie & Kwaliteitszorg / team Biometrics & Quality Assurance
>> Kliniekstraat 25
>> 1070 Anderlecht
>> Belgium
>>
>> To call in the statistician after the experiment is done may be no more
>> than asking him to perform a post-mortem examination: he may be able to say
>> what the experiment died of. ~ Sir Ronald Aylmer Fisher
>> The plural of anecdote is not data. ~ Roger Brinner
>> The combination of some data and an aching desire for an answer does not
>> ensure that a reasonable answer can be extracted from a given body of data.
>> ~ John Tukey
>>
>> 2016-10-05 15:55 GMT+02:00 <G.Maubach at weinwolf.de>:
>>
>>> Hi Bob,
>>> Hi John,
>>> Hi readers,
>>>
>>> many thanks for your reply.
>>>
>>> I did
>>>
>>> barplot(colSums(dataset %>% select(FirstVar:LastVar)))
>>>
>>> and it worked fine.
>>>
>>> How would I do it with ggplot2?
>>>
>>> Kind regards
>>>
>>> Georg
>>>
>>>
>>>
>>>
>>> Von:    "Fox, John" <jfox at mcmaster.ca>
>>> An:     "G.Maubach at weinwolf.de" <G.Maubach at weinwolf.de>,
>>> Kopie:  "r-help at r-project.org" <r-help at r-project.org>
>>> Datum:  05.10.2016 15:01
>>> Betreff:        RE: [R] How to plot a bunch of dichotomous code variables
>>> in one plot     using ggplot2
>>>
>>>
>>>
>>> Dear Georg,
>>>
>>> How about barplot(colSums(ds)) ?
>>>
>>> Best,
>>>  John
>>>
>>> -----------------------------
>>> John Fox, Professor
>>> McMaster University
>>> Hamilton, Ontario
>>> Canada L8S 4M4
>>> Web: socserv.mcmaster.ca/jfox
>>>
>>>
>>> > -----Original Message-----
>>> > From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of
>>> > G.Maubach at weinwolf.de
>>> > Sent: October 5, 2016 8:47 AM
>>> > To: r-help at r-project.org
>>> > Subject: [R] How to plot a bunch of dichotomous code variables in one
>>> plot
>>> > using ggplot2
>>> >
>>> > Hi All,
>>> >
>>> > I have a bunch of dichotomous code variables which shall be plotted in
>>> one
>>> > graph using one of their values, this is "1" in this case.
>>> >
>>> > The dataset looks like this:
>>> >
>>> > -- cut --
>>> > var1 <- c(1,0,1,0,0,1,1,1,0,1)
>>> > var2 <- c(0,1,1,1,1,0,0,0,0,0)
>>> > var3 <- c(1,1,1,1,1,1,1,1,0,1)
>>> >
>>> > ds <- data.frame(var1, var2, var3)
>>> > -- cut --
>>> >
>>> > I would like to have a bar plot like this
>>> >
>>> >
>>> >
>>> >                       *
>>> >                       *
>>> >                       *
>>> >                       *
>>> > *                     *
>>> > *                     *
>>> > *          *          *
>>> > *          *          *
>>> > *          *          *
>>> > *          *          *
>>> > -------------------------
>>> > var1      var2       var3
>>> >
>>> > If this possible in R? If so, how can I achieve this?
>>> >
>>> > Kind regards
>>> >
>>> > Georg
>>> >
>>> > ______________________________________________
>>> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> > 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.
>>>
>>> ______________________________________________
>>> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide http://www.R-project.org/posti
>>> ng-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>>>
>>
>>
>

	[[alternative HTML version deleted]]