how to write this in a for loop in R? -

मैंने यह लिखा है

  pp1 & lt; -table (sip $ newSS4_1 [sip $ newSS4_1 == 1], एसआईपी $ एचएस 1 सी 1 [sip $ newSS4_1 == 1]) पीपी 1 = राउंड (प्रोपटेबल (पीपी 1, 1), अंक = 3) पीपी 1   
 मेरे पास 30 व्हेरिएबल्स करने के लिए। उदाहरण के लिए:  
  pp2 & lt; -table (sip $ newSS4_2 [sip $ newSS4_2 == 1], एसआईपी $ एचएस 1 सी 1 [sip $ newSS4_2 == 1]) पीपी 2 = राउंड (प्रोपटेबल ( Pp2,1), अंकों = 3) पीपी 2  
 
 और  pp3  ...  pp30  इतने पर।  newSS4_1  ...  newSS4_30  पहले से ही डेटाफ्रेम में है। 
 
 यह कैसे एक लूप में लिखना है? 
 
 धन्यवाद। < / P> 

ऐसा लगता है कि आप चीजों को अपने लिए कठिन बना रहे हैं।

1. इसके बजाय विभिन्न नामों के साथ 30 चर बनाने की, क्यों एक सूची का उपयोग नहीं करें?
2. स्तंभ नामों का उपयोग करने के बजाय, कॉलम संख्याओं का उपयोग क्यों नहीं करें?

पीपी & lt; - सूची () colnums & lt; - grep (नाम (एसआईपी) , "NewSS4_") # मानते हैं कि वे (1:30 में) के लिए क्रमबद्ध हैं (सीएनएटी & lt; - colnums [i] पीपी [[i]] & lt; - टेबल (एसआईपी [, सीएन] [एसआईपी [, सीएन] == i], एसआईपी $ एचएस 1 सी 1 [sip [, cn] == i])} यदि आप वास्तव में विभिन्न चर चाहते हैं, तो आप

 उदाहरण के लिए असाइन करने के लिए  असाइन करें (पेस्ट0 ("पीपी", आई), मान)  

पीपी 1, पीपी 2, आदि।