The code provided by the user has a few issues:

1. The group_by function is used incorrectly. The group_by function requires two arguments: the column(s) to group by, and the rest of the code.
2. The mutate function is not being used correctly within the group_by function.

Here’s the corrected version of the user’s code:

library(dplyr)
library(distill)

mydf %>%
  group_by(plot_raai) %>%
  mutate(
    dist = sapply(X, function(x) dist(x, X[1], Y, Y[1]))
  )

This code works by grouping the data by plot_raai, and then calculating the distance from each point to the first point in that group. The dist function is used to calculate the Euclidean distance between two points.

Alternatively, you can use the dplyr functions without the need for the sapply function:

library(dplyr)
library(distill)

mydf %>%
  group_by(plot_raai) %>%
  mutate(
    dist = sum((X - X[1])^2 + (Y - Y[1])^2)^0.5
  )

This code works by grouping the data by plot_raai, and then calculating the distance from each point to the first point in that group using the Euclidean distance formula. The result is a new column called dist.

Last modified on 2025-04-13