fork download
copy 
  1. #df <- read.table("city.txt", header = TRUE, stringsAsFactors=FALSE)
  2. df <- structure(list(City = c("a", "b", "e", "a", "e", "b", "b", "a"
  3.   ), Score = c(3L, 3L, 2L, 4L, 5L, 1L, 3L, 5L)), .Names = c("City", 
  4.   "Score"), class = "data.frame", row.names = c(NA, -8L))
  5. retval <- lapply(unique(df$City), function(city) {
  6.   df$Score[which(df$City == city)]
  7. })
  8. names(retval) <- unique(df$City)
  9. retval
  10.  
Success #stdin #stdout 0.3s 22840KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$a
[1] 3 4 5

$b
[1] 3 1 3

$e
[1] 2 5
https://ideone.com/wuKjGe
language:
R (R 3.5.2)
created:
11 years 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!