R Language Collective

Collective Members

A leaderboard ranking Members by their contributions to the collective. Board updated daily. Last updated 5 hours ago

#		Username	Top contribution	Rep
-		You
	-	Edward	Answer One way is to pivot. But we need to add an id column to do the sum. a %>% mutate(id=1:nrow(a)) %>% ...	+373
	-	langtang	Answer Accepted You could use a different geometry predicate function when calling sf_join() to create merged_data? For example if ...	+330
	-	stefan	Answer Accepted Here are two possible options to achieve your desired result without the need to store the untreated value for each ...	+234
4		Jan	Answer Accepted Unfortunately we have here two major problems which are the reason why the tooltips not work. However, it is ...	+190
5		LMc	Answer Using the data from @Bastián Olea Herrera: library(tm) library(slam) text <- list("she grew up in the ...	+160
6		Jon Spring	Answer Accepted library(tidyverse) mydata \|> pivot_longer(starts_with("employment_"), names_to = &...	+155
7		Bastián Olea Herrera	Answer Accepted When creating a function, you have to add all objects you want to pass inside the function as arguments for the ...	+150
8		L Tyrone	Answer Accepted This is the workflow I use in these cases: Combine contiguous linestrings using sf::st_line_merge() to create a ...	+148
9		Michiel Duvekot	Answer geom_text_repel( aes( label = if_else( rank == 1 \| (line == 'MCF10A_C9' & rank == 931), ...	+120
10		Axeman	Answer Accepted If you have an up-to-date version of ggplot, you can use the key_glyph parameter to change the glyph. Using some ...	+110
11		Andre Wildberg	Answer You can use keep.outputs install.packages("stringr", keep.outputs=TRUE) from the help if true, keep the ...	+103
12		teunbrand	-	+100
13		Adriano Mello	Answer Accepted If you have a small table, it's ok to use one color for each cell, but here's a general solution. library(tidyverse)...	+95
14		margusl	Answer Accepted As Chris noted in comments, you need to take care of coordinate reference system (CRS). So if you need to crop sf ...	+85
15		Friede	Answer I would use format(): df = data.frame(ID = c("ID1", "ID2", "ID3"), duration = c(...	+84
16	-	Darren Tsai	Answer Accepted You can try sapply(0:1, \(n, x=df[-1]) x[col(x) == match(df$id, names(x))+n]) or t(mapply(\(i, j) t(df[i, j+0:1]), ...	+75
17	-	anderwyang	Question How to transfer data frame raw_df to list row by row? Desired output: wished_list raw_df <- data.frame(cat=c('...	+72
18		M--	Answer Accepted We can use seq.Date and axis.Date: plot(exampledata$Date, exampledata$Cases, main="Weeks by Cases", ...	+64
19	-	SamR	Answer Accepted You can simply round() when you divide duration by 1000: df %>% mutate(duration_ms = seconds_to_period(round(...	+60
20		Josh Allen	Answer You can do something like this library(fixest) library(modelsummary) d <- causaldata::social_insure gm <- ...	+60
21		Stéphane Laurent	-	+58
22		Julian	Answer Accepted I think the problem lies within knit_expand which does not evaluate the code within the same environment and the ...	+55
23		Maël	Answer I would do it with two across in this case, although pivoting might be a better option for more complex operations. ...	+50
24		zx8754	Answer Using data.table, split on ": ", group by relid, then paste it back per group: df[, c("name", &...	+50
25		MrFlick	Answer We can use tidyr to split the speaker and what they say into columns, then use dplyr to combine runs of the same ...	+50
26		bretauv	Answer Accepted Looks like ifelse() drops the sf class but not dplyr::if_else() (thanks @SamR for the hint): library(dplyr, warn....	+50
27		Dave2e	-	+45
28		benson23	Answer Accepted You can make use of across and case_when. library(dplyr) df \|> mutate(across(starts_with("mp_"), ...	+45
29		Seth	Answer Accepted You want to pass the argument down to the ggeffects package, where the argument is ci_level. library(sjPlot) ...	+45
30		I_O	Answer You can do so with a helper function that checks whether the main plot's coordinate system is CoordSf or plain and ...	+40
31		yuk	Answer I'd suggest keeping is_red columns in the data and selecting which columns to show with col_keys argument in the ...	+40
32		joran	-	+40
33		Rui Barradas	Answer Coerce the time column to class "POSIXct" and scale_x_datetime will take care of the labels. As for the ...	+40
34		Lukas D. Sauer	Answer Accepted Here is the quickest way that I can think of: # Positions where `mlist` has the value `c("ordered", "...	+37
35		HenrikB	Answer Accepted author of Futureverse here. Using 'multisession' In R (>= 4.4.0) [2024-04-24], you can increase the number of ...	+35
36	-	Marco Sandri	Answer Accepted The matrix BLOSUM62 can be found in the pwalign package. library(pwalign) data("BLOSUM62") print(...	+35
37		Yihui Xie	-	+35
38		Limey	Answer Accepted Building on my comment... library(tidyverse) data.frame(id = c(1, 2, 3), x_at_end = c(4, 5, 6), ...	+35
39		David Robie	Question Background: I am using R to help me figure out which entries in file A (expected names) map to which entries in ...	+34
40		smoff	Question I want to compress some files in R using tar(). My code is quite simple: f <- "C:/TEMP/tarfile.tar.gz" ...	+32
41		Jay Bee	Question I want to convert milliseconds values in my data to minutes and seconds (in the format MM:SS e.g. a value of ...	+32
42		Francisco Jácome ...	Question I have R 4.3.2 installed on my Windows PC. I downloaded it from https://cran.r-project.org/bin/windows/base/. I ...	+32
43		GuedesBF	Answer Why not just separate longer with a delim, and then count? library(dplyr) library(tidyr) lol_champs \|> ...	+30
44		Quinten	-	+30
45		Gavin Simpson	-	+30
46	-	Jindra Lacko	-	+30
47	-	Z.Lin	-	+30
48	-	Spacedman	Answer Write a function to do it: milli_to_ms <- function(milliseconds){ s = milliseconds / 1000 hm = paste0(s ...	+28
49		Ben Bolker	Answer Accepted As mentioned by @StephaneLaurent in comments, a standard installation of R doesn't include the source code in a ...	+25
50		Vincent	Answer Accepted You can use do.call() to feed arguments to the datagrid() function. Note that you need to specify the model object ...	+25