IndrajeetPatil

#include <iostream>

void passValue(int x)
{
    x += 2;
}

void passRef(int &x)
{
    x += 2;

IndrajeetPatil

library(dplyr, warn.conflicts = FALSE)

l <- letters[1:3] 
n <- 1:3
df <- tibble(x = c(rep(l, 2), "x"))

# thanks to Bret Beheim
df %>% mutate(y = n[match(x, l)])

# thanks to Lisa DeBruine and Brenton Wiernik

IndrajeetPatil

# code for this tweet:
# https://twitter.com/patilindrajeets/status/1379114056590708736?s=20

library(ggstatsplot)
library(gginnards)

df <-
  data.frame(
    "time-1" = c("Disease", "Disease", "No Disease", "Disease", "Disease"),
    "time-2" = c("Disease", "Disease", "No Disease", "No Disease", "No Disease")

IndrajeetPatil

# setup
set.seed(123)
library(ggplot2)
library(ggrepel)
library(forcats)

# data
(df <- structure(
  list(
    cyl = structure(

IndrajeetPatil

# setup
set.seed(123)
library(tidyverse)
library(hrbrthemes)
library(ggplot2)
library(ggrepel)

# make the dataframe
df <-
  tibble::tribble(

IndrajeetPatil

library(tidyverse)

iris %>%
  tibble::as_tibble(.) %>%
  dplyr::mutate(., row_mean = pmap_dbl(list(Sepal.Length, Sepal.Width), mean))
  
#> # A tibble: 150 x 6
#>    Sepal.Length Sepal.Width Petal.Length Petal.Width Species row_mean
#>           <dbl>       <dbl>        <dbl>       <dbl> <fct>      <dbl>
#>  1          5.1         3.5          1.4         0.2 setosa       5.1