إعادة تنسيق البيانات باستخدام النمط

Question

لدي مجموعة بيانات كبيرة تحتوي على مزيج من الأرقام والحروف الهجائية.مجرد مثال صغير:

sex <- c("M", "F", "F", "M", "M")
 ind <- c("I1", "I2", "I3", "I4", "C")
M1 <- c("ab", "bb", "ac", "ad", "dd")
M2 <- c(12, 22, 23, 24, 25)
M3 <- c("AT", "AG", "AC", "GG", "TC")
 M4 <- c(22, 23, 24, 14, 24)
mydf <- data.frame(sex, ind, M1, M2, M3, M4)
mydf
  sex ind M1 M2 M3 M4
1   M  I1 ab 12 AT 22
2   F  I2 bb 22 AG 23
3   F  I3 ac 23 AC 24
4   M  I4 ad 24 GG 14
5   M   C dd 25 TC 24

أريد إدخال علامة "/" بين حرفين في الأعمدة M1......Mn (نهاية الملف) بحيث يبدو إطار البيانات الناتج كما يلي:

       sex ind M1 M2 M3 M4
    1   M  I1 a/b 1/2 A/T 2/2
    2   F  I2 b/b 2/2 A/G 2/3
    3   F  I3 a/c 2/3  A/C 2/4
    4   M  I4 a/d 2/4 G/G 1/4
    5   M   C d/d 2/5 T/C 2/4

آسف لم أكن أعرف كيفية المضي قدمًا ...مساعدتك موضع تقدير ...

Answer 1

بطانة واحدة: Genacodicetagpre

Answer 2

تمنحك كل القوة الغامضة لـ R ما يلي:

• splitInsert يقسم عمودًا عند كل حرف باستخدام strsplit ويجمعها من جديد paste.هذا ملفوف sapply لتوجيه الوظيفة.
• ثم أستخدم lapply للتقديم splitInsert على الأعمدة 3:6 من data.frame الخاص بك، و data.frame لدمجه مع العمودين اللذين لا تريد تعديلهما.
• لاحظ أن splitInsert عام تمامًا - سيعمل مع السلاسل النصية بأي طول، ويمكنك استخدام أي حرف جديد من اختيارك لإعادة دمج العناصر المقسمة.

الرمز:

splitInsert <- function(x, split="", new="/"){
  sapply(x, function(y)
    paste(
      strsplit(as.character(y), split=split)[[1]], 
      collapse=new)
         )
}

data.frame(mydf[, 1:2], lapply(mydf[, 3:ncol(mydf)], splitInsert))

النتائج:

  sex ind  M1  M2  M3  M4
1   M  I1 a/b 1/2 A/T 2/2
2   F  I2 b/b 2/2 A/G 2/3
3   F  I3 a/c 2/3 A/C 2/4
4   M  I4 a/d 2/4 G/G 1/4
5   M   C d/d 2/5 T/C 2/4

Answer 3

يبدو أن هذا يعمل. Genacodicetagpre

الإخراج Genacodicetagpre