Actually in my main data the column name is com_num ( where mistakenly I
pasted the sample data here under the com_name ). So, when I run the
command successfully this is the error shows up -
?
1. ??... %>% sg_legend(show = TRUE, label = "Share: ")
2. ??streamgraph::sg_legend(., show = TRUE, label = "Share: ")
3. ??streamgraph::sg_fill_brewer(., "PuOr")
4. ??streamgraph::sg_axis_x(., 0.8)
5. ??streamgraph::streamgraph(., "com_num", "n",
"year")
6. ? ??base::data.frame(data)
7. ??dplyr::ungroup(.)
8. ??dplyr::tally(., wt = share)
9. ??dplyr::group_by(., year, com_num)
10. ??dplyr:::group_by.data.frame(., year, com_num)
11. ??dplyr::group_by_prepare(.data, ..., .add = .add, caller_env
caller_env())
12. ??rlang::abort(bullets, call = error_call)
Any suggestions on how I can fix it ??
On Sun, 2 Oct 2022 at 09:12, David Winsemius <dwinsemius at comcast.net>
wrote:
> I don?t see a column with the name ?com_num?, so the error message makes
> complete sense.
>
> ?
> David
>
> Sent from my iPhone
>
> > On Oct 2, 2022, at 5:06 AM, Tariq Khasiri <tariqkhasiri at
gmail.com>
> wrote:
> >
> > ?Hi, i'm trying to create a steamgraph with the following data by
> creating a
> > unit indicator by combing the year and month. But, I'm getting
error as :
> >
> > Error in `group_by()`:
> > ! Must group by variables found in `.data`.
> > ? Column `com_num` is not found.
> > Run `rlang::last_error()` to see where the error occurred.
> >
> > ### Packages needed for the code
> > devtools::install_github("hrbrmstr/streamgraph")
> >
> > library(tidyverse)
> > library(ggplot2)
> > library(dplyr)
> > library(steamgraph)
> >
> > ### Code ( The following code can be found on creator's account
> > https://hrbrmstr.github.io/streamgraph/ )
> >
> > dat %>%
> > select(year, month, company, share, com_num) %>%
> > tidyr::gather(company, share, -year) %>%
> > group_by(year, com_num) %>%
> > tally(wt=share) %>%
> > ungroup %>%
> > streamgraph("com_num", "n", "year")
%>%
> > sg_axis_x(0.8) %>%
> > sg_fill_brewer("PuOr") %>%
> > sg_legend(show=TRUE, label="Share: ")
> >
> >
> > ### data is like the following
> >
> > dput(dat)
> > structure(list(year = c(2018, 2019, 2019, 2019, 2019, 2019, 2019,
> > 2019, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017, 2017,
> > 2017, 2017, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018, 2018,
> > 2018, 2018, 2018, 2019, 2019, 2019, 2019, 2019), month = c(12,
> > 1, 2, 3, 4, 5, 6, 7, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1,
> > 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 3, 4, 5), company =
c("ABC",
> > "ABC", "ABC", "ABC", "ABC",
"ABC", "ABC", "ABC", "FGH",
"FGH",
> > "FGH", "FGH", "FGH", "FGH",
"FGH", "FGH", "FGH", "FGH",
"FGH",
> > "FGH", "FGH", "FGH", "FGH",
"FGH", "FGH", "FGH", "FGH",
"FGH",
> > "FGH", "FGH", "FGH", "FGH",
"FGH", "FGH", "FGH", "FGH",
"FGH"
> > ), share = c(20, 16.5, 15, 15.5, 15.5, 16, 17, 16.5, 61, 55,
> > 53, 53, 54, 53, 58, 54, 50, 47, 55, 50, 52, 51, 51.5, 52, 53,
> > 54, 55, 53, 54, 50, 42, 48, 41, 40, 39, 36.5, 35), com_name = c(1,
> > 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
> > 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)), row.names = c(NA,
> > -37L), spec = structure(list(cols = list(year = structure(list(),
class > > c("collector_double",
> > "collector")), month = structure(list(), class =
c("collector_double",
> > "collector")), company = structure(list(), class >
c("collector_character",
> > "collector")), share = structure(list(), class =
c("collector_double",
> > "collector")), com_name = structure(list(), class =
c("collector_double",
> > "collector"))), default = structure(list(), class =
c("collector_guess",
> > "collector")), delim = ","), class =
"col_spec"), problems = <pointer:
> > 0x7fd732028680>, class = c("spec_tbl_df",
> > "tbl_df", "tbl", "data.frame"))
> >
> > [[alternative HTML version deleted]]
> >
> > ______________________________________________
> > 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.
>
>
[[alternative HTML version deleted]]