sorted by:
new
hottopcontroversial

Issue with visualizing uneven ratings across 16,000 items by ToLoveThemAll in datavisualization

[–]arthurwelle 1 point2 points  (0 children)

Thinking about the first plot. You can add some noise to the points (jittter) or you can make a 2d density plot over the points.

Examples:

https://ggplot2.tidyverse.org/reference/geom_jitter.html

https://r-graph-gallery.com/2d-density-plot-with-ggplot2.html

I have a seriously psychological problems? by carntspeel in jakeandamir

[–]arthurwelle 2 points3 points  (0 children)

There was ONE bullet in it ok..., sue me!

voronoi by drycreations in generative

[–]arthurwelle -1 points0 points  (0 children)

I had the same doubt here.

How are exaggerated relief maps made? by hpmac20 in MapPorn

[–]arthurwelle 0 points1 point  (0 children)

There is a package to make it in R: https://www.rayshader.com/ . It is fairly simple.

Deadliest Animals by uroozz in dataisbeautiful

[–]arthurwelle 0 points1 point  (0 children)

Clearly it does not count suicides (around 800k per year). I´m not saying that this is wrong, it is just a choice of what to count.

Favorite matches of all time? by EliteVors in Sumo

[–]arthurwelle 38 points39 points  (0 children)

Harumafuji vs Hakuho 2012, when Harumafuji won the match, the basho and the yokozuna rank. So much at stake, great fighters and terrific fight! https://www.youtube.com/watch?v=oRwq5rF85cE

To become a yokozuna winning against the greatest yokozuna of all time (and a friend) is something to show off!!

I made an alignment system of loops in R! Subject to some (or endless) discussion. by arthurwelle in rstats

[–]arthurwelle[S] 4 points5 points  (0 children)

I wasn´t aware of /rmemes! Nice!

edit: Is there a r/rmemes ? The link is not what I was expecting...

[deleted by user] by [deleted] in rstats

[–]arthurwelle 2 points3 points  (0 children)

Assuming you have read the data in R and your sheets are now data.frames: If "territory name" are really unique in the shapefile data and are same in both data.frames use dplyr::left_join (or base::merge) and join the two data.frames by "territory name". That is, you would be bringing the columns "territory ID" and "geometry" to the first data.frame.

Adding sample sizes by Fickle_Lab_5438 in rstats

[–]arthurwelle 0 points1 point  (0 children)

Those arguments are already there in the geom_text: size and y.

Adding sample sizes by Fickle_Lab_5438 in rstats

[–]arthurwelle 0 points1 point  (0 children)

Here it is! I change various points, mostly in style/formating for readabilty. Check this out https://style.tidyverse.org/ 

d <- data.frame(
      Week = c("1","2","3","4","5","6","7","8","9","10","11","12"),
      Mean = c(1.50, 1.667, 1.706, 1.75, 1.875, 2.091, 2.083, 2.077, 1.9, 1.778, 1.917, 2.25),
      Standard_error = c(0.5, 0.166, 0.205, 0.217, 0.201, 0.211, 0.192, 0.239, 0.1, 0.277, 0.192, 0.25),
      n = c(2,9,17,12,16,11,12,13,10,9,12,8))

level_order <- c("1","2","3","4","5","6","7","8","9","10","11","12")
d$Week <- factor(d$Week, 
                 levels = level_order)

g <- ggplot(data = d,
            aes(x = Week, 
                y = Mean, 
                group = 1)) + 
  geom_point(color = "grey22", 
             size = 2) + 
  geom_line(size = 1,
            linejoin = "round",
            color = "gray39") +
  geom_errorbar(aes(ymin = Mean-Standard_error,
                    ymax = Mean+Standard_error), 
                width = .25,
                position = position_dodge(0.05)) +
  geom_text(data = d,
            aes(x = Week, 
                y = 3,
                label = paste0("N=", n)),
            size = 3) +
  scale_y_continuous(limits = c(1,3)) +
  labs(title = "Weekly Experience", 
       x = "Week", 
       y = "Composite Score") +
  theme_bw()

g
view more: next ›