Michael McCarthy mccarthy-m-g

Question

Dear #rstats community, I have a problem. I have a df with multiple char columns which I want to coerce to factors and a list of pre-defined factor level orders (vectors) that I want to apply in the process. Now apparently this isn't a wide-spread thing to do. I am using #tidyverse code.

My approach of

df <- df |> mutate(across(all_of(charvars), ~factor(., levels= levellist[[which(factors==cur_column())]]))

throws me an error telling me it "cant compute the first column ("who")" followed by "internal error"...backtrace attached. My problem is: I used the same approach literally 3 lines above on different subsets before and it works!

Comment

In response to my blog post:

Great analysis! Nicely done! It would be nice to compare the number of commits with the released version of the packages, some packages do a lot of commits for few releases.

https://fosstodon.org/@Lluis_Revilla/110416919345900112

Code

Question

Okay folks how alive is the #rstats #dataviz crowd here? I want to create ridgeline plots with ggridges::geom_density_ridges, but with the trim=T option of ggplot::geom_density. There's an open feature request at wilkelab/ggridges#57 so I don't think @clauswilke has been able to implement this

Interested in ideas! Main reason to want ridges instead of vanilla density plots is multifaceted data — see example plot.

https://scholar.social/@dingemansemark/109659218719054960

Code

Summary

This code takes an alternative approach to the fancy patchwork hacking hacking Andrew Heiss used to get to shared x- and y-axis labels in a patchwork plot.

https://fediscience.org/@andrew/109558941216921694

Code

library(ggplot2)

Question

Regular expression buffs, I need your help with this.

I have a string of the form: s <- "Variable Name (Shortcut) (Variable Unit)".

I need to extract two things: a) Everything BEFORE (Variable Unit); b) Variable Unit from inside the last set of parantheses. How? #rstats

https://twitter.com/IsabellaGhement/status/1597653720841736194?s=20&t=ICQ5FEcBplmVPZIVT0hxOQ

	# Create facet page slider module UI
	facetPageUI <- function(id) {
	tagList(
	sliderInput(
	NS(id, "facet_page"),
	"Facet page:",
	value = 1,
	min = 1,
	max = 2,
	step = 1,

	.callout-mastodon {
	border-left-color: #6364ff !important;
	}

	.callout-header {
	border-bottom: none;
	font-size: .9rem;
	font-weight: 600;
	opacity: 75%;
	}