data <- readr::read_csv("https://gist.githubusercontent.com/batpigandme/830b2cd02f9519cf26680b603c7c2179/raw/15f9b1de0c88f1792fd1c800c4254968feeb21b3/1070651052700172288.csv")
#> Parsed with column specification:
#> cols(
#> A = col_double(),
#> B = col_double(),
#> C = col_character(),
#> D = col_double()
#> )
data
#> # A tibble: 3 x 4
#> A B C D
#> <dbl> <dbl> <chr> <dbl>
#> 1 1 1 a 1
#> 2 2 2 b 2
#> 3 3 3 c 3
Created on 2018-12-06 by the reprex package (v0.2.1.9000)