একটি ডেটা ফ্রেমে গ্রুপগুলির মধ্যে সারিগুলি সংখ্যায়ন করা

Question

এটির মতো একটি ডেটা ফ্রেমের সাথে কাজ করা:

set.seed(100)  
df <- data.frame(cat = c(rep("aaa", 5), rep("bbb", 5), rep("ccc", 5)), val = runif(15))             
df <- df[order(df$cat, df$val), ]  
df  

   cat        val  
1  aaa 0.05638315  
2  aaa 0.25767250  
3  aaa 0.30776611  
4  aaa 0.46854928  
5  aaa 0.55232243  
6  bbb 0.17026205  
7  bbb 0.37032054  
8  bbb 0.48377074  
9  bbb 0.54655860  
10 bbb 0.81240262  
11 ccc 0.28035384  
12 ccc 0.39848790  
13 ccc 0.62499648  
14 ccc 0.76255108  
15 ccc 0.88216552 

আমি প্রতিটি গ্রুপের মধ্যে নম্বর সহ একটি কলাম যুক্ত করার চেষ্টা করছি। এটি এইভাবে করা স্পষ্টতই আর এর শক্তিগুলি ব্যবহার করে না:

 df$num <- 1  
 for (i in 2:(length(df[,1]))) {  
   if (df[i,"cat"]==df[(i-1),"cat"]) {  
     df[i,"num"]<-df[i-1,"num"]+1  
     }  
 }  
 df  

   cat        val num  
1  aaa 0.05638315   1  
2  aaa 0.25767250   2  
3  aaa 0.30776611   3  
4  aaa 0.46854928   4  
5  aaa 0.55232243   5  
6  bbb 0.17026205   1  
7  bbb 0.37032054   2  
8  bbb 0.48377074   3  
9  bbb 0.54655860   4  
10 bbb 0.81240262   5  
11 ccc 0.28035384   1  
12 ccc 0.39848790   2  
13 ccc 0.62499648   3  
14 ccc 0.76255108   4  
15 ccc 0.88216552   5  

এটি করার ভাল উপায় কী হবে?

Comments

আমি প্রশ্নের শিরোনামে "সিক লেভেল উইথ লেভেল" বা "প্রতিলিপিগুলি সহ গণনা" এর মতো কিছু যুক্ত করার পরামর্শ দেব কারণ আমি এই প্রশ্নটি কীভাবে পেয়েছি এবং ঠিক আমি যা খুঁজছিলাম তা হ'ল

— ক্রেজিস্ট্যান্টাক্লাস

@ ক্র্যাজাইস্যান্টাক্লাউস যদি এটি শিরোনাম হয় তবে আমি যা খুঁজছিলাম তা আমি খুঁজে পেতাম না :-( আমি আক্ষরিক অর্থে "কীভাবে একটি ডাটা ফ্রেমে গ্রুপগুলিতে সারি সংখ্যা নির্ধারণ করব"

— জিমনো

Answer 1

ব্যবহারের ave, ddply, dplyrবা data.table:

df$num <- ave(df$val, df$cat, FUN = seq_along)

বা:

library(plyr)
ddply(df, .(cat), mutate, id = seq_along(val))

বা:

library(dplyr)
df %>% group_by(cat) %>% mutate(id = row_number())

বা (সর্বাধিক মেমরি দক্ষ, যেমন এটির মধ্যে রেফারেন্স দ্বারা নির্ধারিত হয় DT):

library(data.table)
DT <- data.table(df)

DT[, id := seq_len(.N), by = cat]
DT[, id := rowid(cat)]

Comments

এটি উল্লেখযোগ্য হতে পারে যে aveএখানে একটি int এর পরিবর্তে একটি ভাসা দেয়। পর্যায়ক্রমে, এ পরিবর্তন df$valকরতে পারে seq_len(nrow(df))। আমি কেবল এখানে এটিকে ছুঁড়েছি

— ফ্রাঙ্ক

মজার বিষয় হল এই data.tableসমাধানটি ব্যবহার করার চেয়ে দ্রুত হবে বলে মনে হচ্ছে frank: library(microbenchmark); microbenchmark(a = DT[, .(val ,num = frank(val)), by = list(cat)] ,b =DT[, .(val , id = seq_len(.N)), by = list(cat)] , times = 1000L)

— হ্যান্স 101

ধন্যবাদ! dplyrসমাধান ভাল। তবে, যদি আমার মতো, plyrdplyrdplyr::mutate(...)

— আপনিও

অন্য data.tableপদ্ধতিsetDT(df)[, id:=rleid(val), by=.(cat)]

— chinsoon12

উত্থাপিত ক্রমে র‌্যাঙ্কিং ভাল কলাম তৈরি করতে কীভাবে সংশোধন library(plyr)এবং library(dplyr)উত্তর দেওয়া যায়?

— প্রেজেমিস্লা রেমিন

Answer 2

এটি করার জন্য R-FAQআরও সম্পূর্ণ প্রশ্ন, এর সাথে একটি বেস আর বিকল্প sequenceএবং rle:

df$num <- sequence(rle(df$cat)$lengths)

যা উদ্দিষ্ট ফলাফল দেয়:

> df
   cat        val num
4  aaa 0.05638315   1
2  aaa 0.25767250   2
1  aaa 0.30776611   3
5  aaa 0.46854928   4
3  aaa 0.55232243   5
10 bbb 0.17026205   1
8  bbb 0.37032054   2
6  bbb 0.48377074   3
9  bbb 0.54655860   4
7  bbb 0.81240262   5
13 ccc 0.28035384   1
14 ccc 0.39848790   2
11 ccc 0.62499648   3
15 ccc 0.76255108   4
12 ccc 0.88216552   5

যদি df$catকোনও ফ্যাক্টর ভেরিয়েবল হয় তবে আপনাকে as.characterপ্রথমে এটি মোড়ানো দরকার :

df$num <- sequence(rle(as.character(df$cat))$lengths)

Comments

সবেমাত্র লক্ষ্য করা গেছে, এই সমাধানগুলির জন্য catকলামটি বাছাই করা দরকার?

— zx8754

@ zx8754 হ্যাঁ, আপনি যদি না পর পরের সংখ্যায় সংখ্যাটি চান নাcat

— জাপ

Answer 3

এখানে forসারিগুলির দ্বারা দলগুলি দ্বারা লুপ ব্যবহার করার বিকল্প রয়েছে (যেমন ওপি করেছে)

for (i in unique(df$cat)) df$num[df$cat == i] <- seq_len(sum(df$cat == i))

Answer 4

এখানে একটি ছোট উন্নতির কৌশল যা গ্রুপগুলির মধ্যে 'ভ্যাল' বাছাই করতে সহায়তা করে:

# 1. Data set
set.seed(100)
df <- data.frame(
  cat = c(rep("aaa", 5), rep("ccc", 5), rep("bbb", 5)), 
  val = runif(15))             

# 2. 'dplyr' approach
df %>% 
  arrange(cat, val) %>% 
  group_by(cat) %>% 
  mutate(id = row_number())

Comments

আপনি গ্রুপ_বিশেষ অনুসারে বাছাই করতে পারবেন না?

— zcoleman

Answer 5

আমি ক্রিয়াকলাপটি data.tableব্যবহার করে একটি বৈকল্পিক যুক্ত করতে চাই rank()যা ক্রমটি পরিবর্তন করার অতিরিক্ত সম্ভাবনা সরবরাহ করে এবং সুতরাং এটি seq_len()সমাধানের চেয়ে কিছুটা নমনীয় করে তোলে এবং আরডিবিএমএসের সারি_নম্বরের ফাংশনের সাথে বেশ অনুরূপ।

# Variant with ascending ordering
library(data.table)
dt <- data.table(df)
dt[, .( val
   , num = rank(val))
    , by = list(cat)][order(cat, num),]

    cat        val num
 1: aaa 0.05638315   1
 2: aaa 0.25767250   2
 3: aaa 0.30776611   3
 4: aaa 0.46854928   4
 5: aaa 0.55232243   5
 6: bbb 0.17026205   1
 7: bbb 0.37032054   2
 8: bbb 0.48377074   3
 9: bbb 0.54655860   4
10: bbb 0.81240262   5
11: ccc 0.28035384   1
12: ccc 0.39848790   2
13: ccc 0.62499648   3
14: ccc 0.76255108   4

# Variant with descending ordering
dt[, .( val
   , num = rank(-val))
    , by = list(cat)][order(cat, num),]

Answer 6

আরেকটি dplyrসম্ভাবনা হতে পারে:

df %>%
 group_by(cat) %>%
 mutate(num = 1:n())

   cat      val   num
   <fct>  <dbl> <int>
 1 aaa   0.0564     1
 2 aaa   0.258      2
 3 aaa   0.308      3
 4 aaa   0.469      4
 5 aaa   0.552      5
 6 bbb   0.170      1
 7 bbb   0.370      2
 8 bbb   0.484      3
 9 bbb   0.547      4
10 bbb   0.812      5
11 ccc   0.280      1
12 ccc   0.398      2
13 ccc   0.625      3
14 ccc   0.763      4
15 ccc   0.882      5

Comments

কিছু ক্ষেত্রে 1:n()ব্যবহারের পরিবর্তে seq_len(n())এটি নিরাপদ, যদি আপনার ক্রিয়াকলাপ অনুসারে আপনার এমন পরিস্থিতি n()ফিরে আসে যেখানে আপনি ফিরে আসতে পারেন 0, কারণ 1:0আপনাকে দৈর্ঘ্য দুটি ভেক্টর seq_len(0)দেয় এবং একটি দৈর্ঘ্য শূন্য ভেক্টর দেয়, সুতরাং দৈর্ঘ্যের অমিল ত্রুটি এড়ানো যায় mutate()।

— ব্রায়ান স্ট্যাম্পার 19

Answer 7

এতে rowid()ফাংশনটি ব্যবহার করে data.table:

> set.seed(100)  
> df <- data.frame(cat = c(rep("aaa", 5), rep("bbb", 5), rep("ccc", 5)), val = runif(15))
> df <- df[order(df$cat, df$val), ]  
> df$num <- data.table::rowid(df$cat)
> df
   cat        val num
4  aaa 0.05638315   1
2  aaa 0.25767250   2
1  aaa 0.30776611   3
5  aaa 0.46854928   4
3  aaa 0.55232243   5
10 bbb 0.17026205   1
8  bbb 0.37032054   2
6  bbb 0.48377074   3
9  bbb 0.54655860   4
7  bbb 0.81240262   5
13 ccc 0.28035384   1
14 ccc 0.39848790   2
11 ccc 0.62499648   3
15 ccc 0.76255108   4
12 ccc 0.88216552   5

Comments

আপনার উত্তরের জন্য ধন্যবাদ তবে এটি ইলেক্ট্রনিক্সের উত্তরের শেষ পরামর্শে ইতিমধ্যে আবৃত রয়েছে বলে মনে হচ্ছে

— এলি-কে