fork download
copy 
  1. library(dplyr)
  2.  
  3. # Sample dataset
  4. df <- data.frame(Name = c("Alice", "Bob", "Charlie", "David"),
  5.                  Age = c(25, 30, 35, 40),
  6.                  Score = c(90, 85, 88, 92))
  7.  
  8. # Using pipes
  9. df %>%
  10.   filter(Age > 30) %>%         # Keep only Age > 30
  11.   select(Name, Score) %>%      # Select columns Name and Score
  12.   summarize(avg_score = mean(Score))  # Compute average score
  13.  
Success #stdin #stdout #stderr 0.76s 52844KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  avg_score
1        90
stderr
copy 
Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union
https://ideone.com/65V3Il
language:
R (R 3.5.2)
created:
5 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!