フィルタリングされた要素にデータフレーム計算された列を追加する

Question

データフレームに計算された列を追加して、各一連のグループ/コンポーネント（group1/R1、group1/R2 ...）でCpKを検索したい：

Table1 : 
! Group ! Component ! Data ! High_Limit ! LOW_LIMIT ! 
!-------!-----------!------!------------!-----------! 
!group1 ! R1  ! 10 ! 12  ! 8  ! 
!group1 ! R1  ! 11 ! 12  ! 8  ! 
!group1 ! R2  ! 50 ! 60  ! 45  ! 
!group1 ! R2  ! 55 ! 60  ! 45  ! 
!group2 ! C1  ! 9 ! 12  ! 8.5  ! 
!group2 ! C1  ! 10.5 ! 12  ! 9  ! 
!group2 ! R3  ! 11.5 ! 12  ! 9  ! 
!group2 ! R3  ! 9.5 ! 12  ! 9  ! 
and so on ... 

CpkのためCalculががある：

m <- mean(table1$Data) 
s <- sd(table1$Data) 

Ts <- max(table1$HIGH_LIMIT) 
Ti <- min(table1$LOW_LIMIT) 

CpK <- min((m-Ti)/(3*s), (Ts-m)/(3*s)) 

あなたは私を助けていただけますか？ここ

（試料について）エクスポート実データフレーム

"UUT_NAME" "STATION_NUM" "START_DATE_TIME" "LOW_LIMIT" "DATA" "HIGH_LIMIT" "UNITS" "STEP_NAME" 

"32" "CELOGIC.MA-6475" "00 00297" 2014年1月27日16時30分38秒88 103.83455 112「pFの"C10" "104" "CELOGIC.MA-6475" "00 00297" 2014-01-27 16:30:38 87.9 89.64711 93.9 "KO" "R1" "105" "CELOGIC.MA-6475" " 00 00297 "2014-01-27 16:30:38 2.08 2.13345 2.22" KO "" R2 " " 106 "" CELOGIC.MA-6475 "" 00 00297 "2014-01-27 16:30:38 29.1 30.057545 31.1 「KO」「R3」 「107」「CELOGIC.MA-6475」「00 00297」2014-01-27 16:30:38 29.1 30.086464 31.1「KO」「R4」 「1005」「CELOGIC.MA-2161 "" 00 00362 "201 4-05-13 13:58:38 88 104.37667 112 "pF" "C10" "1077" "CELOGIC.MA-2161" "00 00362" 2014-05-13 13:58:38 87.9 89.788269 93.9 "KO" 「R1」 「1078」「CELOGIC.MA-2161」「00 00362」2014-05-13 13:58:38 2.08 2.13431 2.22「KO」「R2」 「1079」「CELOGIC.MA-2161」「00 「00362」2014-05-13 13:58:38 29.1 30.045176 31.1「KO」「R3」 「1080」「CELOGIC.MA-2161」「00 00362」2014-05-13 13:58:38 29.1 30.049561 31.1 " 「KO」「R4」 「1978」「CELOGIC.MA-2161」「00 00362」2014-05-13 14:09:17 88 104.7235 112「pF」「C10」 「2050」「CELOGIC.MA-2161」 「00 00362」2014-05-13 14:09:17 87.9 89.813126 93.9「KO」「R1」 「2051」「CELOGIC.MA-2161」「00 00362」2014-05-13 14:09:17 2.08 2.134059 2.22 "KO" "R2" "2052" "CELOGIC.MA-2161" "00 00362" 2014-05-13 14:09:17 29.1 30.048182 31.1 "KO" "R3" 「2053」「CELOGIC.MA-2161」「00 00362」2014-05-13 14:09:17 29.1 30.056608 31.1「KO」「R4」 「2951」「CELOGIC.MA-4329」「00 00362」2014 -05-13 14:30:51 88 104.03241 112 "pF" "C10" "3023" "CELOGIC.MA-4329" "00 00362" 2014-05-13 14:31:38 88 103.96976 112 "pF" " C10 " " 3095 "" CELOGIC.MA-4329 "" 00 00362 "2014-05-13 14:31:38 87.9 89.63073 93.9" KO "" R1 " " 3096 "" CELOGIC.MA-4329 "" 00 00362 "2014-05-13 14:31:38 2.08 2.141897 2.22" KO "" R2 " " 3097 "" CELOGIC.MA-4329 "" 00 00362 "2014-05-13 14:31:38 29.1 30.035461 31.1" KO "R3" "3098" "CELOGIC.MA-4329" "00 00362" 2014-05-13 14:31:38 29.1 30.104946 31.1 "KO" "R4" "3996" "CELOGIC.MA-2374" " 00 00297 "2014-06-19 14:30:36 88 104.51376 112" pF "" C10 " " 4068 "" CELOGIC.MA-2374 "" 00 00297 "2014-06-19 14 ：30：36 87.9 90.733009 93.9 "KO" "R1" "4069" "CELOGIC.MA-2374" "00 00297" 2014-06-19 14:30:36 2.08 2.141215 2.22 "KO" "R2" "4070 「CELOGIC.MA-2374」「00 00297」2014-06-19 14:30:36 29.1 30.147131 31.1「KO」「R3」 「4071」「CELOGIC.MA-2374」「00 00297」2014-06- 19 14:30:36 29.1 30.113092 31.1「KO」「R4」 「4892」「CELOGIC.MA-2374」「00 00297」2014-06-19 14:39:36 88 107.34245 112「pF」「C10」 「4964」「CELOGIC.MA-2374」「00 00297」2014-06-19 14:39:36 87.9 90.934967 93.9「KO」「R1」 「4965」「CELOGIC.MA-2374」「00 00297」2014- 06-19 14:39:36 2.08 2.140769 2.22 "KO" "R2" "4966" "CELOGIC.MA-2374" "00 00297" 2014-06-19 14:39:36 29.1 30.136806 31.1 "KO" "R3 " " 4967 "" CELOGIC.MA-2374 "" 00 00297 "2014-06-19 14:39:36 29.1 30.114983 31.1" KO "" R4 " 「5534」「CELOGIC.MA-2374」「00 00297」2014-06-19 14:42:13 88 105.98895 112「pF」「C10」 「5606」「CELOGIC.MA-2374」「00 00297」2014 -06-19 14:42:13 87.9 90.628517 93。9 "KO" "R1" "5607" "CELOGIC.MA-2374" "00 00297" 2014年6月19日午後02時42分13秒2.08 2.22 2.141326 "KO" "R2" "5608"「CELOGIC.MA- 2374 "" 00 00297 "2014年6月19日午後02時42分13秒30.142355 29.1 31.1" KO "" R3 " " 5609 "" CELOGIC.MA-2374 "" 00 00297「2014年6月19日午後02時42分13秒30.122778 29.1 31.1 "KO" "R4" "6507" "CELOGIC.MA-2454" "00 00297" 2014年9月5日9時26分10秒88 103.49479 112 "pFの" "C10" "6579"「CELOGIC。 MA-2454 "" 00 00297 "2014年9月5日午前九時26分10秒90.358688 87.9 93.9" KO "" R1 " " 6580 "" CELOGIC.MA-2454 "" 00 00297「2014年9月5日9時26分10 22.02 2.08 2.141122 "KO" "R2" "6581" "CELOGIC.MA-2454" "00 00297" 2014年9月5日9時26分10秒30.058239 29.1 31.1 "KO" "R3" "6582" " CELOGIC.MA-2454 "" 00 00297 "2014年9月5日9時26分10秒29.1 30.06591 31.1" KO "" R4 " " 7430 "" CELOGIC.M -2454 "" 00 00297 "2014年9月5日9時35分27秒88 103.60199 112" pFの "" C10 " " 7502 "" CELOGIC.MA-2454 "" 00 00297「2014年9月5日午前9時35分27 90.354286 87.9 93.9 "KO" "R1" "7503" "CELOGIC.MA-2454" "00 00297" 2014年9月5日午前九時35分27秒2.08 2.22 2.142168 "KO" "R2" "7504" " CELOGIC.MA-2454 "" 00 00297 "2014年9月5日9時35分27秒30.063662 29.1 31.1" KO "" R3 " " 7505 "" CELOGIC.MA-2454 "" 00 00297「2014年9月5日09 ：35：29.1 27 31.1 30.070904 "KO" "R4" "8414" "CELOGIC.MA-1610" "00 00366" 2015年3月6日午前7時50分56秒88 102.51865 112 "pFの" "C10" 「8486 "" CELOGIC.MA-1610 "" 00 00366 "2015年3月6日午前7時50分56秒90.974564 87.9 93.9" KO "" R1 " " 8487 "" CELOGIC.MA-1610 "" 00 00366「2015-03- 06午前7時50分56秒2.148871 2.08 2.22 "KO" "R2" "8488" "CELOGIC.MA-1610" "00 00366" 2015年3月6日7時50分56秒29.983458 29.1 31.1「KO "" R3 " " 8489 "" CELOGIC.MA-1610 "" 00 00366 "2015年3月6日午前7時50分56秒30.128607 29.1 31.1" KO "" R4 " " 8918 "" CELOGIC.MA-1610 "" 00 00366 "2015年3月6日午前7時59分56秒112 88 103.016" pFの "" C10 " " 8990 "" CELOGIC.MA-1610 "" 00 00366「2015年3月6日午前7時59分56秒90.883461 87.9 93.9 "KO" "R1" "8991" "CELOGIC.MA-1610" "00 00366" 2015年3月6日午前7時59分56秒2.08 2.22 2.148184 "KO" "R2" "8992"「CELOGIC.MA-1610 "" 00366 00 "2015年3月6日7時59分56秒29.975309 29.1 31.1" KO "" R3 " " 8993 "" CELOGIC.MA-1610 "" 00 00366「2015年3月6日7時59分56秒29.1 30.137098 31.1 "KO" "R4" "9426" "CELOGIC.MA-1610" "00 00362" 2015年3月9日13時52分21秒88 102.54838 112 "pFの" "C10" "9498"「CELOGIC.MA -1610 "" 00 00362 "2015年3月9日午後01時52分21秒89.871902 87.9 93.9" KO "" R1 " " 9499 "" CELOGIC.MA-1610」 "00 00362" 2015年3月9日午後01時52分21秒2.08 2.22 2.142678 "KO" "R2" "9500" "CELOGIC.MA-1610" "00 00362" 2015年3月9日午後01時52分21秒29.1 29.947052 31.1 "KO" "R3" "9501" "CELOGIC.MA-1610" "00 00362" 2015年3月9日夜1時52分21秒30.094099 29.1 31.1 "KO" "R4" "10399"「CELOGIC.MA- 1610 "" 00 00362 "2015年3月9日午後2時36分44秒88 102.50674 112" pFの "" C10 " " 10471 "" CELOGIC.MA-1610 "" 00 00362「2015年3月9日午後2時36分44秒89.974739 87.9 93.9 "KO" "R1" "10472" "CELOGIC.MA-1610" "00 00362" 2015年3月9日午後2時36分44秒2.08 2.22 2.142947 "KO" "R2" "10473"「CELOGIC。 MA-1610 "" 00 00362 "2015年3月9日14時36分44秒29.953632 29.1 31.1" KO "" R3 " " 10474 "" CELOGIC.MA-1610 "" 00 00362「2015年3月9日14時36分44 30.089359 29.1 31.1 "KO" "R4" "10903" "CELOGIC.MA-1610" "00 00362" 2015年3月9日14時50分37秒88 102.88899 112 "pFの" "C10" "10975" "CELOGIC.MA-1610"、 "00 00362" 2015年3月9日夜02時50分37秒90.077881 87.9 93.9 "KO" "R1" "10976" "CELOGIC.MA-1610"「00 00362 "2015年3月9日午前14時50分37秒2.08 2.22 2.142447" KO "" R2 " " 10977 "" CELOGIC.MA-1610 "" 00 00362 "2015年3月9日午前14時50分37秒29.951406 29.1 31.1" KO "" R3 " " 10978 "" CELOGIC.MA-1610 "" 00 00362 "2015年3月9日14時50分37秒30.092203 29.1 31.1" KO "" R4 " " 11876 "" CELOGIC.MA-0887」 "00 00362" 2015年3月17日14時19分37秒88 105.72658 112 "pFの" "C10" "11948" "CELOGIC.MA-0887" "00 00362" 2015年3月17日14時19分37秒87.9 89.542099 93.9 "KO" "R1" "11949" "CELOGIC.MA-0887" "00 00362" 2015年3月17日14時19分37秒2.08 2.22 2.143392 "KO" "R2" "11950"「CELOGIC.MA- 0887 "" 00 00362「2015年3月17日14時19分37秒29.1 29.941921 31。1 "KO" "R3" "11951" "CELOGIC.MA-0887" "00 00362" 2015年3月17日14時19分37秒29.980062 29.1 31.1 "KO" "R4" "12849"「CELOGIC.MA- 2189 "" 00 00399 "2015年10月30日午後02時47分55秒88 104.56109 112" pFの "" C10 " " 12921 "" CELOGIC.MA-2189 "" 00 00399「2015年10月30日午後02時47分55秒90.826813 87.9 93.9 "KO" "R1" "12922" "CELOGIC.MA-2189" "00 00399" 2015年10月30日午後二時47分55秒2.08 2.13772 2.22 "KO" "R2" "12923"「CELOGIC。 MA-2189 "" 00 00399 "2015年10月30日午前14時47分55秒29.979958 29.1 31.1" KO "" R3 " " 12924 "" CELOGIC.MA-2189 "" 00 00399「2015年10月30日午後02時47分55 30.028364 29.1 31.1 "KO" "R4" "13445" "CELOGIC.MA-2189" は、 "00 00399" 2015年10月30日14時49分22秒88 104.10088 112 "pFの" "C10" "13517"」 CELOGIC.MA-2189 "" 00 00399 "2015年10月30日夜2時49分22秒90.849869 87.9 93.9" KO "" R1 " " 13518 "" C ELOGIC.MA-2189 "" 00 00399 "2015年10月30日午前14時49分22秒2.08 2.22 2.136499" KO "" R2 " " 13519 "" CELOGIC.MA-2189 "" 00 00399「2015年10月30日14 ：49：29.1 22 31.1 29.981756 "KO" "R3" "13520" "CELOGIC.MA-2189" "00 00399" 2015年10月30日午前14時49分22秒30.028885 29.1 31.1 "KO" "R4" 「13748 "" CELOGIC.MA-2189 "" 00 00399 "2015年10月30日夜02時49分49秒88 105.10763 112" pFの "" C10 " " 13820 "" CELOGIC.MA-2189 "" 00 00399「2015-10- 30午前14時49分49秒90.826553 87.9 93.9 "KO" "R1" "13821" "CELOGIC.MA-2189" "00 00399" 2015年10月30日午後02時49分49秒2.08 2.22 2.137116 "KO" "R2" "13822" "CELOGIC.MA-2189" "00 00399" 2015年10月30日14時49分四十九秒29.984587 29.1 31.1 "KO" "R3" "13823" "CELOGIC.MA-2189" "00 00399" 2015- 10-30 14時49分49秒30.029911 29.1 31.1 "KO" "R4" "14721" "CELOGIC.MA-2189" "00 00399" 2015年10月30日15時03分52秒88 10 4.18301 112 "pFの" "C10" "14793" "CELOGIC.MA-2189" "00 00399" 2015年10月30日午前15時03分52秒90.603035 87.9 93.9 "KO" "R1" "14794"「CELOGIC.MA -2189 "" 00 00399 "2015年10月30日15時03分五十二秒2.08 2.22 2.136766" KO "" R2 " " 14795 "" CELOGIC.MA-2189 "" 00 00399「2015年10月30日15時03分： 52 29.987928 29.1 31.1 "KO" "R3" "14796" "CELOGIC.MA-2189" "00 00399" 2015年10月30日午後3時03分52秒30.042906 29.1 31.1 "KO" "R4" "15694"「CELOGIC .MA-2316 "" 00 00399 "2015年11月2日午後02時52分56秒88 103.85734 112" pFの "" C10 " " 15766 "" CELOGIC.MA-2316 "" 00 00399「2015年11月2日14： 87.9 93.9 52:56 90.941826 "KO" "R1" "15767" "CELOGIC.MA-2316" "00 00399" 2015年11月2日午後02時52分56秒2.08 2.22 2.135956 "KO" "R2" "15768" "CELOGIC.MA-2316" "00 00399" 2015年11月2日午後2時52分56秒29.919226 29.1 31.1 "KO" "R3" "15769" "CELOGIC.MA-2316" "00 00399" 2015年11月2日午後02時52分56秒30.054958 29.1 31.1 "KO" "R4" "16667" "CELOGIC.MA-0906" "00 00399" 2015 -11-02午前15時30分48秒88 106.41589 112 "pFの" "C10" "16739" "CELOGIC.MA-0906" "00 00399" 2015年11月2日午前15時30分48秒90.797607 87.9 93.9 "KO"」 R1 " " 16740 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日午後03時30分48秒2.08 2.22 2.134154" KO "" R2 " " 16741 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日15時30分48秒30.109236 29.1 31.1" KO "" R3 " " 16742 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日15時30分48秒30.025709 29.1 31.1" KO "" R4 " " 17640 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日午後3時52分41秒88 106.77251 112" pFの "" C10 " " 17712 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日午後三時52分41秒90.557838 87.9 93.9" KO "" R1 " " 17713 "" CELOGIC.MA-0906 "" 00 00399「2015年11月2日15 ：52：41 2：08 2.132611 2.22 "KO" "R2" "17714" "CELOGIC.MA-0906" "00 00399" 2015年11月2日午後03時52分41秒30.115213 29.1 31.1 "KO" "R3" 「17715 "" CELOGIC.MA-0906 "" 00 00399 "2015年11月2日午後3時五十二分41秒30.049799 29.1 31.1" KO "" R4 " " 18144 "" CELOGIC.MA-3154 "" 00 00399「2015-11- 02 16時12分23秒104.15064 112 88 "pFの" "C10" "18216" "CELOGIC.MA-3154" "00 00399" 2015年11月2日16時12分23秒90.598541 87.9 93.9 "KO" "R1" "18217" "CELOGIC.MA-3154" "00 00399" 2015年11月2日夜四時12分23秒2.08 2.22 2.136247 "KO" "R2" "18218" "CELOGIC.MA-3154" "00 00399" 2015- 11月2日16時12分23秒30.099293 29.1 31.1 "KO" "R3" "18219" "CELOGIC.MA-3154" "00 00399" 2015年11月2日16時12分23秒29.956236 29.1 31.1 "KO"「R4 " " 18787 "" CELOGIC.MA-3154 "" 00 00399「2015年11月3日9時20分08秒88104。50943 112 "pFの" "C10" "18859" "CELOGIC.MA-3154" "00 00399" 2015年11月3日午前9時20分08秒90.196915 87.9 93.9 "KO" "R1" "18860"「CELOGIC.MA -3154 "" 00 00399 "2015年11月3日9時20分08秒2.08 2.22 2.136503" KO "" R2 " " 18861 "" CELOGIC.MA-3154 "" 00 00399「2015年11月3日午前9時20分： 08 30.089535 29.1 31.1 "KO" "R3" "18862" "CELOGIC.MA-3154" "00 00399" 2015年11月3日午前9時20分08秒29.956837 29.1 31.1 "KO" "R4" "19760"「CELOGIC .MA-2610 "" 00 00362 "2016年3月9日午前16時12分04秒88 104.67191 112" pFの "" C10 " " 19832 "" CELOGIC.MA-2610 "" 00 00362「2016年3月9日16： 12時04分87.9 90.35878 93.9 "KO" "R1" "19833" "CELOGIC.MA-2610" "00 00362" 2016年3月9日午後04時12分04秒2.08 2.22 2.145689 "KO" "R2" "19834" "CELOGIC.MA-2610" "00 00362" 2016年3月9日夜4時12分04秒30.158304 29.1 31.1 "KO" "R3" "19835" "CELOGIC.MA-2610" "00 00362" 2016年3月9日午後4時12分04秒30.004744 29.1 31.1 "KO" "R4" "20264" "CELOGIC.MA-2610" "00 00399" 2016- 3月9日14時14分01秒103.27634 112 88 "pFの" "C10" "20336" "CELOGIC.MA-2610" "00 00399" 2016年3月9日14時14分01秒90.543076 87.9 93.9 "KO"「R1 " " 20337 "" CELOGIC.MA-2610 "" 00 00399 "2016年3月9日14時14分01秒2.08 2.22 2.144124" KO "" R2 " " 20338 "" CELOGIC.MA-2610 "" 00 00399」 2016年3月9日午後02時14分01秒30.138008 29.1 31.1 "KO" "R3" "20339" "CELOGIC.MA-2610" "00 00399" 2016年3月9日午後02時14分01秒29.987755 29.1 31.1 "KO" "R4" "21237" "CELOGIC.MA-2610" "00 00399" 2016年3月9日午前16時02分18秒88 103.43541 112 "pFの" "C10" "21309" "CELOGIC.MA-2610"「00 00399 "2016年3月9日午後4時02分18秒90.312469 87.9 93.9" KO "" R1 " " 21310 "" CELOGIC.MA-2610 "" 00 00399「2016年3月9日16時02分18 22.02 2.08 2.145076 "KO" "R2" "21311" "CELOGIC.MA-2610" "00 00399" 2016年3月9日16時02分18秒30.144836 29.1 31.1 "KO" "R3" "21312"」 CELOGIC.MA-2610 "" 00 00399 "2016年3月9日16時02分18秒29.1 29.99951 31.1" KO "" R4 " " 22210 "" CELOGIC.MA-2610 "" 00 00362「2016年3月10日09 ：07：24 88 103.84418 112 "pFの" "C10" "22282" "CELOGIC.MA-2610" "00 00362" 2016年3月10日9時07分24秒87.9 90.39769 93.9 "KO" "R1" 「22283 "" CELOGIC.MA-2610 "" 00 00362 "2016年3月10日9時07分24秒2.08 2.22 2.145807" KO "" R2 " " 22284 "" CELOGIC.MA-2610 "" 00 00362「2016-03- 10午前9時07分24秒30.145554 29.1 31.1 "KO" "R3" "22285" "CELOGIC.MA-2610" "00 00362" 2016年3月10日午前9時07分24秒29.995651 29.1 31.1 "KO" "R4" "23183" "CELOGIC.MA-2609" "00 00399" 2016年6月2日午前九時45分43秒88 103.39602 112 "pFの" "C10" "23255" "CELOGIC.MA-2609" "00 00399" 2016年6月2日午前9時45分43秒90.332397 87.9 93.9 "KO" "R1" "23256" "CELOGIC.MA-2609" "00 00399" 2016 -06-02 9時45分43秒2.146439 2.08 2.22 "KO" "R2" "23257" "CELOGIC.MA-2609" "00 00399" 2016年6月2日午前9時45分43秒30.082825 29.1 31.1 "KO" " R3 " " 23258 "" CELOGIC.MA-2609 "" 00 00399 "2016年6月2日午前九時45分43秒29.1 30.07023 31.1" KO "" R4 " " 24156 "" CELOGIC.MA-2609 "" 00 00399 "2016年6月2日午前十時35分59秒88 103.07425 112" pFの "" C10 " " 24228 "" CELOGIC.MA-2609 "" 00 00399 "2016年6月2日午前十時35分59秒90.374924 87.9 93.9" KO "" R1 " " 24229 "" CELOGIC.MA-2609 "" 00 00399 "2016年6月2日午前10時35分59秒2.08 2.22 2.145505" KO "" R2 " " 24230 "" CELOGIC.MA-2609 "" 00 00399 "2016年6月2日午前10時35分59秒30.075659 29.1 31.1" KO "" R3 " " 24231 "" CELOGIC.MA-2609 "" 00 00399「2016から0午前10時35分59秒30.067387 6-02 29.1 31.1 "KO" "R4" "25128" "CELOGIC.MA-102"、 "00 00323" 2016年7月22日夜3時43分27秒88 102.41218 112 "pFの"「C10 " " 25200 "" CELOGIC.MA-102 "" 00 00323 "2016年7月22日15時43分27秒89.970772 87.9 93.9" KO "" R1 " " 25201 "" CELOGIC.MA-102 "" 00 00323」 2016年7月22日午後03時43分27秒2.08 2.22 2.135011 "KO" "R2" "25202" "CELOGIC.MA-102"、 "00 00323" 2016年7月22日午後03時43分27秒30.171347 29.1 31.1 "KO" "R3" "25203" "CELOGIC.MA-102"、 "00 00323" 2016年7月22日午前15時43分二十七秒30.038151 29.1 31.1 "KO" "R4" "26101" "CELOGIC.MA-102"「00 00323 "2016年7月25日8時52分49秒88 102.64326 112" pFの "" C10 " " 26173 "" CELOGIC.MA-102 "" 00 00323 "2016年7月25日8時52分49秒90.041145 87.9 93.9" KO "" R1 " " 26174 "" CELOGIC.MA-102 "" 00 00323「2016年7月25日8時52分49秒2 2.08 2.13542。22 "KO" "R2" "26175" "CELOGIC.MA-102"、 "00 00323" 2016年7月25日8時52分49秒29.1 30.17922 31.1 "KO" "R3" "26176"「CELOGIC.MA- 102 "" 00 00323 "2016年7月25日午前8時52分49秒30.034796 29.1 31.1" KO "" R4 " " 26605 "" CELOGIC.MA-102 "" 00 00323「2016年7月25日9時48分51秒102.55943 112 88 "pFの" "C10" "26677" "CELOGIC.MA-102"、 "00 00323" 2016年7月25日9時48分51秒87.9 89.94989 93.9 "KO" "R1" "26678"「CELOGIC。 MA-102 "" 00 00323 "2016年7月25日9時48分51秒2.08 2.22 2.136524" KO "" R2 " " 26679 "" CELOGIC.MA-102 "" 00 00323「2016年7月25日9時48 51 30.172457 29.1 31.1 "KO" "R3" "26680" "CELOGIC.MA-102"、 "00 00323" 2016年7月25日9時48分51秒30.039785 29.1 31.1 "KO" "R4" "27578"」 CELOGIC.MA 100 "" 00 00323 "2016年7月25日10時31分02秒88 106.16189 112" pFの "" C10 " " 27650 "" CELOGIC.M -100 "" 00 00323 "2016年7月25日10時31分02秒90.254478 87.9 93.9" KO "" R1 " " 27651 "" CELOGIC.MA 100 "" 00 00323「2016年7月25日午前10時31分02 22.02 2.08 2.143642 "KO" "R2" "27652" "CELOGIC.MA 100" "00 00323" 2016年7月25日午前10時31分02秒29.1 30.03858 31.1 "KO" "R3" "27653"」 CELOGIC.MA 100 "" 00 00323 "2016年7月25日10時31分02秒30.034452 29.1 31.1" KO "" R4 " " 28082 "" CELOGIC.MA 100 "" 00 00323「2016年7月25日11 ：22：45 88 105.13081 112 "pFの" "C10" "28154" "CELOGIC.MA 100" "00 00323" 2016年7月25日11時22分45秒90.153961 87.9 93.9 "KO" "R1" 「28155 "" CELOGIC.MA 100 "" 00 00323 "2016年7月25日午前11時22分四十五秒2.08 2.22 2.143321" KO "" R2 " " 28156 "" CELOGIC.MA 100 "" 00 00323「2016-07- 25 11時22分45秒30.020109 29.1 31.1 "KO" "R3" "28157" "CELOGIC.MA 100" "00 00323" 2016年7月25日11時22分45秒30.049246 29.1 31.1「KO "" R4 " " 29055 "" CELOGIC.MA 100 "" 00 00362 "2016年7月25日夜1時25分13秒88 106.46228 112" pFの "" C10 " " 29127 "" 100 CELOGIC.MA "" 00 00362「2016年7月25日午前13時25分13秒90.300667 87.9 93.9」ここでKO「」R1「

Answer 1

がdplyr

table1 <- read.table(text = " Group Component Data High_Limit LOW_LIMIT 
       group1 R1   10  12   8   
       group1 R1   11  12   8   
       group1 R2   50  60   45  
       group1 R2   55  60   45  
       group2 C1   9  12   8.5  
       group2 C1   10.5 12   9   
       group2 R3   11.5 12   9   
       group2 R3   9.5 12   9", header = TRUE) 
library(dplyr) 
table2 <- table1 %>% 
    group_by(Group, Component) %>% 
    summarise(m = mean(Data), s = sd(Data), Ts = max(High_Limit), 
      Ts = max(High_Limit), Ti = min(LOW_LIMIT)) %>% 
    mutate(CpK = min((m-Ti)/(3*s), (Ts-m)/(3*s))) 
# final data frame 
table3 <- left_join(table1, table2, by = c("Group", "Component"))