How to sum variable by month/year in R?












-1















library(dplyr)
library(plotly)
library(lubridate)

googlesearch <- read.csv("multiTimeline.csv", header = FALSE, stringsAsFactors = FALSE)

googlesearch2 <- googlesearch [-1, ]
googlesearch2 <- googlesearch2 [-1, ]
colnames(googlesearch2)[1] <- 'Date'
colnames(googlesearch2)[2] <- 'NumberofSearch'

googlesearch2$Date <- as.Date(googlesearch2$Date)
googlesearch2 <- googlesearch2 %>%
filter(Date > "2015-01-04" & Date < "2018-05-27")

googlesearch3 <- googlesearch2 %>%
transform(googlesearch2$Date, Date = as.Date(as.character(Date), "%Y-%m-%d"))
googlesearch3 <- googlesearch2 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y"))

googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch)

googlesearch3 <- googlesearch3 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y")) %>%
summarise(NumberofSearch_sum = sum(NumberofSearch))

data <- tbl_df(googlesearch3)

data %>%
group_by(yearMon) %>%
summarise(NumberofSearch_mon = sum(NumberofSearch))


I know this is messy.
I'm getting this error and I don't know why.Adding the sample code.



Error in summarise_impl(.data, dots) : 
Evaluation error: invalid 'type' (character) of argument.









share|improve this question

























  • googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

    – Wally Ali
    Nov 19 '18 at 6:56













  • Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

    – Tung
    Nov 19 '18 at 9:28
















-1















library(dplyr)
library(plotly)
library(lubridate)

googlesearch <- read.csv("multiTimeline.csv", header = FALSE, stringsAsFactors = FALSE)

googlesearch2 <- googlesearch [-1, ]
googlesearch2 <- googlesearch2 [-1, ]
colnames(googlesearch2)[1] <- 'Date'
colnames(googlesearch2)[2] <- 'NumberofSearch'

googlesearch2$Date <- as.Date(googlesearch2$Date)
googlesearch2 <- googlesearch2 %>%
filter(Date > "2015-01-04" & Date < "2018-05-27")

googlesearch3 <- googlesearch2 %>%
transform(googlesearch2$Date, Date = as.Date(as.character(Date), "%Y-%m-%d"))
googlesearch3 <- googlesearch2 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y"))

googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch)

googlesearch3 <- googlesearch3 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y")) %>%
summarise(NumberofSearch_sum = sum(NumberofSearch))

data <- tbl_df(googlesearch3)

data %>%
group_by(yearMon) %>%
summarise(NumberofSearch_mon = sum(NumberofSearch))


I know this is messy.
I'm getting this error and I don't know why.Adding the sample code.



Error in summarise_impl(.data, dots) : 
Evaluation error: invalid 'type' (character) of argument.









share|improve this question

























  • googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

    – Wally Ali
    Nov 19 '18 at 6:56













  • Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

    – Tung
    Nov 19 '18 at 9:28














-1












-1








-1








library(dplyr)
library(plotly)
library(lubridate)

googlesearch <- read.csv("multiTimeline.csv", header = FALSE, stringsAsFactors = FALSE)

googlesearch2 <- googlesearch [-1, ]
googlesearch2 <- googlesearch2 [-1, ]
colnames(googlesearch2)[1] <- 'Date'
colnames(googlesearch2)[2] <- 'NumberofSearch'

googlesearch2$Date <- as.Date(googlesearch2$Date)
googlesearch2 <- googlesearch2 %>%
filter(Date > "2015-01-04" & Date < "2018-05-27")

googlesearch3 <- googlesearch2 %>%
transform(googlesearch2$Date, Date = as.Date(as.character(Date), "%Y-%m-%d"))
googlesearch3 <- googlesearch2 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y"))

googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch)

googlesearch3 <- googlesearch3 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y")) %>%
summarise(NumberofSearch_sum = sum(NumberofSearch))

data <- tbl_df(googlesearch3)

data %>%
group_by(yearMon) %>%
summarise(NumberofSearch_mon = sum(NumberofSearch))


I know this is messy.
I'm getting this error and I don't know why.Adding the sample code.



Error in summarise_impl(.data, dots) : 
Evaluation error: invalid 'type' (character) of argument.









share|improve this question
















library(dplyr)
library(plotly)
library(lubridate)

googlesearch <- read.csv("multiTimeline.csv", header = FALSE, stringsAsFactors = FALSE)

googlesearch2 <- googlesearch [-1, ]
googlesearch2 <- googlesearch2 [-1, ]
colnames(googlesearch2)[1] <- 'Date'
colnames(googlesearch2)[2] <- 'NumberofSearch'

googlesearch2$Date <- as.Date(googlesearch2$Date)
googlesearch2 <- googlesearch2 %>%
filter(Date > "2015-01-04" & Date < "2018-05-27")

googlesearch3 <- googlesearch2 %>%
transform(googlesearch2$Date, Date = as.Date(as.character(Date), "%Y-%m-%d"))
googlesearch3 <- googlesearch2 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y"))

googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch)

googlesearch3 <- googlesearch3 %>%
mutate(month = format(Date, "%m"), year = format(Date, "%Y")) %>%
group_by(Date, yearMon = as.yearmon(Date, "%m-%d-%Y")) %>%
summarise(NumberofSearch_sum = sum(NumberofSearch))

data <- tbl_df(googlesearch3)

data %>%
group_by(yearMon) %>%
summarise(NumberofSearch_mon = sum(NumberofSearch))


I know this is messy.
I'm getting this error and I don't know why.Adding the sample code.



Error in summarise_impl(.data, dots) : 
Evaluation error: invalid 'type' (character) of argument.






r dplyr lubridate






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 19 '18 at 9:25









sai saran

358224




358224










asked Nov 19 '18 at 6:51









kekeke355kekeke355

1




1













  • googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

    – Wally Ali
    Nov 19 '18 at 6:56













  • Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

    – Tung
    Nov 19 '18 at 9:28



















  • googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

    – Wally Ali
    Nov 19 '18 at 6:56













  • Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

    – Tung
    Nov 19 '18 at 9:28

















googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

– Wally Ali
Nov 19 '18 at 6:56







googlesearch3$Date <- as.numeric(googlesearch3$NumberofSearch) double check that line. were you trying to convert NumberofSearch to numerica? it looks like you converted Date to numeric

– Wally Ali
Nov 19 '18 at 6:56















Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

– Tung
Nov 19 '18 at 9:28





Welcome to Stack Overflow! Could you make your problem reproducible by sharing a sample of your data so others can help (please do not use str(), head() or screenshot)? You can use the reprex and datapasta packages to assist you with that. See also Help me Help you & How to make a great R reproducible example?

– Tung
Nov 19 '18 at 9:28












1 Answer
1






active

oldest

votes


















0














In lack of a reproducible example, try to replace the last code chunk of you sample code with:



library(hablar)

data %>%
retype() %>%
group_by(yearMon) %>%
summarise(NumberofSearch_mon = sum(NumberofSearch))


Maybe it works :)






share|improve this answer























    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53369631%2fhow-to-sum-variable-by-month-year-in-r%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    0














    In lack of a reproducible example, try to replace the last code chunk of you sample code with:



    library(hablar)

    data %>%
    retype() %>%
    group_by(yearMon) %>%
    summarise(NumberofSearch_mon = sum(NumberofSearch))


    Maybe it works :)






    share|improve this answer




























      0














      In lack of a reproducible example, try to replace the last code chunk of you sample code with:



      library(hablar)

      data %>%
      retype() %>%
      group_by(yearMon) %>%
      summarise(NumberofSearch_mon = sum(NumberofSearch))


      Maybe it works :)






      share|improve this answer


























        0












        0








        0







        In lack of a reproducible example, try to replace the last code chunk of you sample code with:



        library(hablar)

        data %>%
        retype() %>%
        group_by(yearMon) %>%
        summarise(NumberofSearch_mon = sum(NumberofSearch))


        Maybe it works :)






        share|improve this answer













        In lack of a reproducible example, try to replace the last code chunk of you sample code with:



        library(hablar)

        data %>%
        retype() %>%
        group_by(yearMon) %>%
        summarise(NumberofSearch_mon = sum(NumberofSearch))


        Maybe it works :)







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 19 '18 at 12:05









        davsjobdavsjob

        56236




        56236






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Stack Overflow!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53369631%2fhow-to-sum-variable-by-month-year-in-r%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Guess what letter conforming each word

            Port of Spain

            Run scheduled task as local user group (not BUILTIN)