blog/a-shiny-app-for-simple-linear-regression-by-hand-and-in-r/

[utterances-bot]

A Shiny app for simple linear regression by hand and in R - Stats and R

This article presents a Shiny app for computing simple linear regression by hand and in R. Add your own data, see the results and download them as a report

https://statsandr.com/blog/a-shiny-app-for-simple-linear-regression-by-hand-and-in-r/

[AntoineSoetewey]

Comment written by kathroji saikrishna on September 10, 2020 14:42:56:

Really nice and interesting post. I was looking for this kind of information and enjoyed reading this one. Keep posting. Thanks for sharing.

[AntoineSoetewey]

Comment written by kathroji saikrishna on September 10, 2020 14:42:56:

Really nice and interesting post. I was looking for this kind of information and enjoyed reading this one. Keep posting. Thanks for sharing.

Comment written by Antoine Soetewey on September 10, 2020 16:22:08:

Thanks Kathroji, glad you like it !

[open-source-rs]

Antoine,

I'm working on a tab in my shiny dashboard that shows regression values.

The tab code looks like this:

tabItem(tabName = "regressionanalysis", h2("Regression Analysis"),
                    
                    
                    fluidRow(
                        selectInput("usstateregression", h4("US State Regression Analysis"), 
                                    c("Select U.S. State" = "Select U.S. State",
                                      "Alabama, AL" = "Alabama, AL",
                                      "Alaska, AK" = "Alaska, AK",
                                      "Arizona, AZ" = "Arizona, AZ",
                                      "Arkansas, AR" = "Arkansas, AR",
                                      "California, CA" = "California, CA",
                                      "Colorado, CO" = "Colorado, CO",
                                      "Connecticut, CT" = "Connecticut, CT",
                                      "Delaware, DE" = "Delaware, DE",
                                      "Florida, FL" = "Florida, FL",
                                      "Georgia, GA" = "Georgia, GA",
                                      "Hawaii, HI" = "Hawaii, HI",
                                      "Idaho, ID" = "Idaho, ID",
                                      "Illinois, IL" = "Illinois, IL",
                                      "Indiana, IN" = "Indiana, IN",
                                      "Iowa, IA" = "Iowa, IA",
                                      "Kansas, KS" = "Kansas, KS",
                                      "Kentucky, KY" = "Kentucky, KY",
                                      "Louisiana, LA" = "Louisiana, LA",
                                      "Maine, ME" = "Maine, ME",
                                      "Maryland, MD" = "Maryland, MD",
                                      "Massachusetts, MA" = "Massachusetts, MA",
                                      "Michigan, MI" = "Michigan, MI",
                                      "Minnesota, MN" = "Minnesota, MN",
                                      "Mississippi, MS" = "Mississippi, MS",
                                      "Missouri, MO" = "Missouri, MO",
                                      "Montana, MT" = "Montana, MT",
                                      "Nebraska, NE" = "Nebraska, NE",
                                      "Nevada, NV" = "Nevada, NV",
                                      "New Hampshire, NH" = "New Hampshire, NH",
                                      "New Jersey, NJ" = "New Jersey, NJ",
                                      "New Mexico, NM" = "New Mexico, NM",
                                      "New York, NY" = "New York, NY",
                                      "North Carolina, NC" = "North Carolina, NC",
                                      "North Dakota, ND" = "North Dakota, ND",
                                      "Ohio, OH" = "Ohio, OH",
                                      "Oklahoma, OK" = "Oklahoma, OK",
                                      "Oregon, OR" = "Oregon, OR",
                                      "Pennsylvania, PA" = "Pennsylvania, PA",
                                      "Rhode Island, RI" = "Rhode Island, RI",
                                      "South Carolina, SC" = "South Carolina, SC",
                                      "South Dakota, SD" = "South Dakota, SD",
                                      "Tennessee, TN" = "Tennessee, TN",
                                      "Texas, TX" = "Texas, TX",
                                      "Utah, UT" = "Utah, UT",
                                      "Vermont, VT" = "Vermont, VT",
                                      "Virginia, VA" = "Virginia, VA",
                                      "Washington, WA" = "Washington, WA",
                                      "West Virginia, WV" = "West Virginia, WV",
                                      "Wisconsin, WI" = "Wisconsin, WI",
                                      "Wyoming, WY" = "Wyoming, WY",
                                      "District of Columbina, DC" = "District of Columbina, DC",
                                      "American Samoa, AS" = "American Samoa, AS",
                                      "Federated States of Micronesia, FM" = "Federated States of Micronesia, FM",
                                      "Guam, GU" = "Guam, GU",
                                      "Marshall Islands, MH" = "Marshall Islands, MH",
                                      "Northern Mariana Islands, MP" = "Northern Mariana Islands, MP",
                                      "Palau, PW" = "Palau, PW",
                                      "Puerto Rico, PR" = "Puerto Rico, PR",
                                      "Virgin Islands, VI" = "Virgin Islands, VI",
                                      "Other Non-US State" = "Other Non-US State"), selected = "Select U.S. State")
                        
                    ),
                    
                    # Begin second fluid row
                    fluidRow(
                        
                        # Begin first box plot
                        box(width = 12,
                            
                            column(6,
                                   plotOutput("plotRegression", 350),
                                   verbatimTextOutput('regressionResults')
                            ),
                            column(6,
                                   plotOutput("histogramdbis", height = 250),
                                   verbatimTextOutput('dbisRegHistogramDescriptives'),
                                   plotOutput("histogramciatas", height = 250),
                                   verbatimTextOutput('ciatasRegHistogramDescriptives')
                            )
                            
                        )
                        
                         
                    ) # End fluid row

the server plot code looks like this

    output$plotRegression <- renderPlot({
        plotRegressionModel <- lm(dbis ~ ciatas, data = dbrp_data1)
        summary(plotRegressionModel)
        ggplot(dbrp_data1, aes(dbis, ciatas)) + geom_point() + stat_smooth(method = lm) +
            labs(title = "Regression Model", x = "dbis", y = "ciatas")
    })

So the selectbox on the tab works just fine, but what do i need to change in the regression plot code so that it's reactive?
Also, for now I'm trying not to use data frames because I don't understand them that well.
I'm focusing on getting the code to work first.

Cheers ~!

[AntoineSoetewey]

Hello Jimbo,

Can you send me your files by email so I can test your code ?

Regards,
Antoine

[open-source-rs]

yea lemme see how i can do that I might have to post it into a private github and then invite you gimme a few and I'll get that going please keep all code private - I'm really not comfortable sharing the entire code base with anyone at this point jimbo

[open-source-rs]

i need an email i can use and I'll add you to a private repo that i posted the latest code to jimbo

[AntoineSoetewey]

Email sent.

Don't worry, it will stay private.