mirror of
https://github.com/monkeytypegame/monkeytype.git
synced 2025-02-26 15:54:35 +08:00
chore: quote lengths script
This commit is contained in:
Miodec
parent
71a60f786d
commit
dbc5898e49
2 changed files with 36 additions and 37 deletions
|
|
@ -6,37 +6,36 @@
|
|||
[301, 600],
|
||||
[601, 9999]
|
||||
],
|
||||
"quotes": [
|
||||
{
|
||||
"text": "ggplot(data = sample_df, mapping = aes(x = group, y = value)) +\n\tgeom_point() +\n\tgeom_point(\n\tdata = group_means_df, mapping = aes(x = group, y = group_mean), \n\tcolor = \"red\", size = 3\n\t)",
|
||||
"source": "tidyverse - ggplot2 plot.R",
|
||||
"id": 1,
|
||||
"length": 187
|
||||
},
|
||||
{
|
||||
"text": "starwars %>% \n\tfilter(!is.na(height)) %>%\n\tslice_max(height, n = 3)",
|
||||
"source": "tidyverse - dplyr vignettes/dplyr.Rmd",
|
||||
"id": 2,
|
||||
"length": 67
|
||||
},
|
||||
{
|
||||
"text": "classroom2 <- classroom %>%\n\tpivot_longer(quiz1:test1, names_to = \"assessment\", values_to = \"grade\") %>%\n\tarrange(name, assessment)\nclassroom2",
|
||||
"source": "tidyverse - tidyr vignettes/tidy-data.Rmd",
|
||||
"id": 3,
|
||||
"length": 142
|
||||
},
|
||||
{
|
||||
"text": "library(palmerpenguins)\nlibrary(ggplot2)\nggplot2::theme_set(ggplot2::theme_minimal())\n\nbill_len_dep <- ggplot(\n\tdata = penguins,\n\taes(\n\t\tx = bill_length_mm,\n\t\ty = bill_depth_mm,\n\t\tgroup = species\n\t)\n) +\n\tgeom_point(\n\t\taes(\n\t\t\tcolor = species,\n\t\t\tshape = species\n\t\t),\n\t\tsize = 3,\n\t\talpha = 0.8\n\t) +\n\tgeom_smooth(method = \"lm\", se = FALSE, aes(color = species)) +\n\tscale_color_manual(values = c(\"darkorange\", \"purple\", \"cyan4\")) +\n\tlabs(\n\t\ttitle = \"Penguin bill dimensions\",\n\t\tsubtitle = \"Bill length and depth for Adelie, Chinstrap and Gentoo Penguins at Palmer Station LTER\",\n\t\tx = \"Bill length (mm)\",\n\t\ty = \"Bill depth (mm)\",\n\t\tcolor = \"Penguin species\",\n\t\tshape = \"Penguin species\",\n\t\t) +\n\ttheme(\n\t\tlegend.position = c(0.85, 0.15),\n\t\tplot.title.position = \"plot\",\n\t\tplot.caption = element_text(hjust = 0, face = \"italic\"),\n\t\tplot.caption.position = \"plot\"\n\t)\n\nbill_len_dep",
|
||||
"source": "Allison Horst: palmerpenguins example adapted to tidyverse style guide.",
|
||||
"id": 4,
|
||||
"length": 874
|
||||
},
|
||||
{
|
||||
"text": "my_summarise <- function(data, group_var) {\n\tdata %>%\n\t\tgroup_by({{ group_var }}) %>%\n\t\tsummarise(mean = mean(mass))\n}\nmy_summarise2 <- function(data, expr) {\n\tdata %>% summarise(\n\t\tmean = mean({{ expr }}),\n\t\tsum = sum({{ expr }}),\n\t\tn = n()\n\t)\n}\n\nmy_summarise3 <- function(data, mean_var, sd_var) {\n\tdata %>%\n\t\tsummarise(mean = mean({{ mean_var }}), sd = sd({{ sd_var }}))\n}",
|
||||
"source": "tidyverse - dplyr vignettes/programming.Rmd",
|
||||
"id": 5,
|
||||
"length": 375
|
||||
}
|
||||
]
|
||||
"quotes": [
|
||||
{
|
||||
"text": "ggplot(data = sample_df, mapping = aes(x = group, y = value)) +\n\tgeom_point() +\n\tgeom_point(\n\tdata = group_means_df, mapping = aes(x = group, y = group_mean), \n\tcolor = \"red\", size = 3\n\t)",
|
||||
"source": "tidyverse - ggplot2 plot.R",
|
||||
"id": 1,
|
||||
"length": 187
|
||||
},
|
||||
{
|
||||
"text": "starwars %>% \n\tfilter(!is.na(height)) %>%\n\tslice_max(height, n = 3)",
|
||||
"source": "tidyverse - dplyr vignettes/dplyr.Rmd",
|
||||
"id": 2,
|
||||
"length": 67
|
||||
},
|
||||
{
|
||||
"text": "classroom2 <- classroom %>%\n\tpivot_longer(quiz1:test1, names_to = \"assessment\", values_to = \"grade\") %>%\n\tarrange(name, assessment)\nclassroom2",
|
||||
"source": "tidyverse - tidyr vignettes/tidy-data.Rmd",
|
||||
"id": 3,
|
||||
"length": 142
|
||||
},
|
||||
{
|
||||
"text": "library(palmerpenguins)\nlibrary(ggplot2)\nggplot2::theme_set(ggplot2::theme_minimal())\n\nbill_len_dep <- ggplot(\n\tdata = penguins,\n\taes(\n\t\tx = bill_length_mm,\n\t\ty = bill_depth_mm,\n\t\tgroup = species\n\t)\n) +\n\tgeom_point(\n\t\taes(\n\t\t\tcolor = species,\n\t\t\tshape = species\n\t\t),\n\t\tsize = 3,\n\t\talpha = 0.8\n\t) +\n\tgeom_smooth(method = \"lm\", se = FALSE, aes(color = species)) +\n\tscale_color_manual(values = c(\"darkorange\", \"purple\", \"cyan4\")) +\n\tlabs(\n\t\ttitle = \"Penguin bill dimensions\",\n\t\tsubtitle = \"Bill length and depth for Adelie, Chinstrap and Gentoo Penguins at Palmer Station LTER\",\n\t\tx = \"Bill length (mm)\",\n\t\ty = \"Bill depth (mm)\",\n\t\tcolor = \"Penguin species\",\n\t\tshape = \"Penguin species\",\n\t\t) +\n\ttheme(\n\t\tlegend.position = c(0.85, 0.15),\n\t\tplot.title.position = \"plot\",\n\t\tplot.caption = element_text(hjust = 0, face = \"italic\"),\n\t\tplot.caption.position = \"plot\"\n\t)\n\nbill_len_dep",
|
||||
"source": "Allison Horst: palmerpenguins example adapted to tidyverse style guide.",
|
||||
"id": 4,
|
||||
"length": 874
|
||||
},
|
||||
{
|
||||
"text": "my_summarise <- function(data, group_var) {\n\tdata %>%\n\t\tgroup_by({{ group_var }}) %>%\n\t\tsummarise(mean = mean(mass))\n}\nmy_summarise2 <- function(data, expr) {\n\tdata %>% summarise(\n\t\tmean = mean({{ expr }}),\n\t\tsum = sum({{ expr }}),\n\t\tn = n()\n\t)\n}\n\nmy_summarise3 <- function(data, mean_var, sd_var) {\n\tdata %>%\n\t\tsummarise(mean = mean({{ mean_var }}), sd = sd({{ sd_var }}))\n}",
|
||||
"source": "tidyverse - dplyr vignettes/programming.Rmd",
|
||||
"id": 5,
|
||||
"length": 375
|
||||
}
|
||||
]
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -32760,7 +32760,7 @@
|
|||
{
|
||||
"text": "What do I do? System architecture. Networking and security. No one in this house can touch me on that. But does anyone appreciate that? While you were busy minoring in gender studies and singing acapella at Sarah Lawrence, I was gaining root access to NSA servers. I was one click away from starting a second Iranian Revolution. I prevent cross-site scripting, I monitor for DDoS attacks, emergency database rollbacks, and faulty transaction handlings. The Internet - heard of it? Transfers half a petabyte of data every minute. Do you have any idea how that happens? All those YouTube ones and zeroes streaming directly to your little smart phone day after day? Every joe who gets outraged if he can't get the new dubstep Skrillex remix in under 12 seconds? It's not magic, it's talent and sweat. People like me, ensuring your packets get delivered, un-sniffed. So what do I do? I make sure that one bad config on one key component doesn't bankrupt the entire company. That's what I do.",
|
||||
"source": "Bertram Gilfoyle - Silicon Valley",
|
||||
"length": 988,
|
||||
"length": 987,
|
||||
"id": 5920
|
||||
},
|
||||
{
|
||||
|
|
@ -33879,7 +33879,7 @@
|
|||
{
|
||||
"text": "I'd give my life, not for honor, but for you! In my time, there'll be no one else. Crime, it's the way I fly to you!",
|
||||
"source": "Metal Gear Solid 3: Snake Eater",
|
||||
"length": 115,
|
||||
"length": 116,
|
||||
"id": 6232
|
||||
},
|
||||
{
|
||||
|
|
@ -34425,7 +34425,7 @@
|
|||
{
|
||||
"text": "You're an educated man, my lord, but I think it's worth reminding you that in most cases a man trying to change the world fails for one simple and unavoidable reason... everyone else.",
|
||||
"source": "Black Sails",
|
||||
"length": 181,
|
||||
"length": 183,
|
||||
"approvedBy": "Smithster",
|
||||
"id": 6327
|
||||
},
|
||||
|
|
@ -38614,7 +38614,7 @@
|
|||
{
|
||||
"text": "Unlike a drop of water which loses its identity when it joins the ocean, man does not lose his being in the society in which he lives.",
|
||||
"source": "B. R. Ambedkar",
|
||||
"length": 101,
|
||||
"length": 134,
|
||||
"id": 7025
|
||||
},
|
||||
{
|
||||
|
|
|
|||
Loading…
Reference in a new issue