Thread for students in Gov 50 to post reprexes. Please do not answer them!

[just10_hu]

not sure what is going wrong here

library(reprex)
library(dslabs)
library(tidyverse)


#load data from dslabs
data("murders")

#problematic code
murders %>%
  mutate(rate = (tota/population) * 1e5)
#> Error: Problem with `mutate()` input `rate`.
#> x object 'tota' not found
#> i Input `rate` is `(tota/population) * 1e+05`.

[mste]

I was trying to create a new column for calculating murder rates.

library(reprex)
library(tidyverse)
library(dslabs)

# Load murders data from dslabs 

data("murders")

# Create a column called for the murder rate

murders %>%
  mutate(rate = tota / population * 1e5)
#> Error: Problem with `mutate()` input `rate`.
#> x object 'tota' not found
#> i Input `rate` is `tota/population * 1e+05`.

^{Created on 2020-09-25 by the reprex package (v0.3.0)}

[jhatcher24]

## you can put any code here!
library(tidyverse)

diamonds %>% 
  slice(1:5) %>% 
  select(Cut)
#> Error: Can't subset columns that don't exist.
#> x Column `Cut` doesn't exist.

HELP I have a bug

[DPinckney09]

library(tidyverse)

diamonds %>% 
  mutate(niceness = (carat + cut))
#> Warning: Problem with `mutate()` input `niceness`.
#> ℹ '+' is not meaningful for ordered factors
#> ℹ Input `niceness` is `(carat + cut)`.
#> Warning in Ops.ordered(carat, cut): '+' is not meaningful for ordered factors
#> # A tibble: 53,940 x 11
#>    carat cut       color clarity depth table price     x     y     z niceness
#>    <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl> <lgl>   
#>  1 0.23  Ideal     E     SI2      61.5    55   326  3.95  3.98  2.43 NA      
#>  2 0.21  Premium   E     SI1      59.8    61   326  3.89  3.84  2.31 NA      
#>  3 0.23  Good      E     VS1      56.9    65   327  4.05  4.07  2.31 NA      
#>  4 0.290 Premium   I     VS2      62.4    58   334  4.2   4.23  2.63 NA      
#>  5 0.31  Good      J     SI2      63.3    58   335  4.34  4.35  2.75 NA      
#>  6 0.24  Very Good J     VVS2     62.8    57   336  3.94  3.96  2.48 NA      
#>  7 0.24  Very Good I     VVS1     62.3    57   336  3.95  3.98  2.47 NA      
#>  8 0.26  Very Good H     SI1      61.9    55   337  4.07  4.11  2.53 NA      
#>  9 0.22  Fair      E     VS2      65.1    61   337  3.87  3.78  2.49 NA      
#> 10 0.23  Very Good H     VS1      59.4    61   338  4     4.05  2.39 NA      
#> # … with 53,930 more rows

[florianbochert]

library(PPBDS.data)
library(tidyverse)
ggplot(trains, aes(x = att_start, y = att_end, color = gender)) +
  geom_point(gender)
#> Error in layer(data = data, mapping = mapping, stat = stat, geom = GeomPoint, : object 'gender' not found

^{Created on 2020-09-25 by the reprex package (v0.3.0)}

[priscillaagyen]

this is a test

library(tidyverse)
library(gapminder)


gapminder %>%
  filter(country == "Afghanistan") %>%
  ggplot(aes( x , year, y = lifeExp)) +
  geom_point()
#> Error in FUN(X[[i]], ...): object 'x' not found

[NikitaLledo]

having a problem in general

library(tidyverse)
library(gapminder)

gapminder %>%
  filter(country == "Afghanistan") %>%
  ggplot(aes(x = year, y = lifeExp)) +
  geom_point()