Funcții R inutile utilizate-prejudecăți absurde cu scurgeri mentale inutile

Explorarea graficelor este întotdeauna o distracție. Atașarea marginilor și nodurilor cu exemple reale de efecte psihologice și însoțiți -le cu comenzi rapide mentale inutile este dincolo de distracție. Acesta este motivul pentru care îl vom numi un „prejudecată cognitivă” explorator folosind DAG.

Iată marginile și nodurile graficelor și le numim prejudecăți și legături ciudate. Pentru că, da Să amestecăm matematica cu psihologia.

  biases <- c(
    "Confirmation Bias", "Anchoring Bias", "Availability Heuristic", 
    "Dunning-Kruger Effect", "Survivorship Bias", "Recency Bias",
    "Sunk Cost Fallacy", "Bandwagon Effect", "Framing Effect", 
    "Self-Serving Bias", "Negativity Bias", "Halo Effect"
  )
  
  # useless links 
  weird_links <- c(
    "You saw it on Reddit", "Too lazy to verify", "Sounds familiar",
    "Because Elon tweeted it", "Grandma said so", "Wikipedia said maybe",
    "Your gut feeling", "Cited by no one", "Used in a TED talk",
    "Found in fortune cookie", "Might be science", "Feels statistically valid"
  )

Cu această conexiuni inutile din viața reală putem construi o date.FRAME:

  edges <- data.frame(
    from = sample(biases, n_links, replace = TRUE),
    to = sample(biases, n_links, replace = TRUE),
    reason = sample(weird_links, n_links, replace = TRUE),
    stringsAsFactors = FALSE
  )

Și, în sfârșit, să lipim toate piesele împreună:

library(igraph)
library(ggraph)
library(ggplot2)

bias_explorer <- function(seed = 2908, n_links = 25) {
  set.seed(seed)
  
  # Some psych effects from RL
  biases <- c(
    "Confirmation Bias", "Anchoring Bias", "Availability Heuristic", 
    "Dunning-Kruger Effect", "Survivorship Bias", "Recency Bias",
    "Sunk Cost Fallacy", "Bandwagon Effect", "Framing Effect", 
    "Self-Serving Bias", "Negativity Bias", "Halo Effect"
  )
  
  # useless links 
  weird_links <- c(
    "You saw it on Reddit", "Too lazy to verify", "Sounds familiar",
    "Because Elon tweeted it", "Grandma said so", "Wikipedia said maybe",
    "Your gut feeling", "Cited by no one", "Used in a TED talk",
    "Found in fortune cookie", "Might be science", "Feels statistically valid"
  )

  edges <- data.frame(
    from = sample(biases, n_links, replace = TRUE),
    to = sample(biases, n_links, replace = TRUE),
    reason = sample(weird_links, n_links, replace = TRUE),
    stringsAsFactors = FALSE
  )
  
  edges <- edges(edges$from != edges$to, )
  g <- graph_from_data_frame(edges, vertices = data.frame(name = biases), directed = TRUE)

  ggraph(g, layout = "drl") +
    geom_edge_link(
      aes(label = reason),
      arrow = arrow(length = unit(3, 'mm')),
      end_cap = circle(2, 'mm'),
      start_cap = circle(2, 'mm'),
      label_colour = "darkgray",
      edge_width = 1.2,
      colour = "skyblue"
    ) +
    geom_node_point(color = "darkred", size = 6) +
    geom_node_text(aes(label = name), repel = TRUE, fontface = "bold", size = 3.5) +
    labs(
      title = "Bias_explorer(): The Absurd Web of Biases",
      subtitle = "Visualizing ridiculous mental shortcuts.",
      caption = "Edges represent irrational and useless connections."
    ) +
    theme_void()
  
}

Doar pentru a obține un grafic de conexiuni aleatorii care pot stârni o imaginație inutilă sau utilă atunci când examinați capul sau cuiva.

Continuați cu R-coding și rămâneți sănătos!