Вопросы Теги

Как разделить столбцы в кадре данных? [Дубликат]

Вы можете использовать конфигурационную электронную почту с помощью codeigniter, например, используя smtp (простой способ): 

$config = Array(
        'protocol' => 'smtp',
        'smtp_host' => 'mail.domain.com', //your smtp host
        'smtp_port' => 26, //default port smtp
        'smtp_user' => 'name@domain.com',
        'smtp_pass' => 'password',
        'mailtype' => 'html',
        'charset' => 'iso-8859-1',
        'wordwrap' => TRUE
);
$message = 'Your msg';
$this->load->library('email', $config);
$this->email->from('name@domain.com', 'Title');
$this->email->to('emaildestination@domain.com');
$this->email->subject('Header');
$this->email->message($message);

if($this->email->send()) 
{
   //conditional true
}

Это работает для меня!

2
задан Sotos 18 May 2016 в 12:14
поделиться

5 ответов

Мы можем сделать длины равными, реплицируя второй столбец, а затем разделим на подмножество набора данных, у которого нет первого или второго столбца 

df1[-(1:2)] <- df1[-(1:2)]/df1[,2][row(df1[-(1:2)])]
df1
#       Name        Col      dKO1      dKO2      sdi1
#29      Mark 1769380098 0.8674967 0.9201740 0.8735108
#30    Anders 1444462500 1.2425947 1.2336649 1.2105541
#1278     Tom 1499146688 1.5293111 1.1068905 1.1640133
#1295     Vin 1276309375 0.6705163 0.5807531 1.2195172
#1296  Marcel   22279500 0.9836621 1.8511187       NaN
#1297    Tyta 3114023471 0.9813868 0.9098608 1.1405553
#1298   Gerta 2961012500 1.2097011 1.2412815 1.0496874
#1307   Moses 3978937424 0.9467125 0.9029171 0.9344295
#1642    Hank 1703925000 1.1991725 0.9310929 0.8100584
#1674    Rita 1838885550 1.1614969 1.0520367 1.2059076
#1754 Margary 1483386250 0.9990865 0.9891363 0.6922093
4
ответ дан akrun 22 August 2018 в 22:18
поделиться

Это мое решение, которое, как я предполагаю, можно записать в одну строку: 

df3 <- df1 %>% select(-Col,everything()) %>% mutate_if(is.numeric, funs(./Col)) 

df3[["Col"]]<-df1[["Col"]]

df3 <- df3 %>% select(Col, dKO1, dKO2, sdi1)
0
ответ дан Antarqui 22 August 2018 в 22:18
поделиться

Вы можете использовать функцию sweep: 

tbl_data[, -(1:2)] <- sweep(tbl_data[, -(1:2)], 1, tbl_data[, 2], "/")

tbl_data
        Name        Col      dKO1      dKO2      sdi1
29      Mark 1769380098 0.8674967 0.9201740 0.8735108
30    Anders 1444462500 1.2425947 1.2336649 1.2105541
1278     Tom 1499146688 1.5293111 1.1068905 1.1640133
1295     Vin 1276309375 0.6705163 0.5807531 1.2195172
1296  Marcel   22279500 0.9836621 1.8511187       NaN
1297    Tyta 3114023471 0.9813868 0.9098608 1.1405553
1298   Gerta 2961012500 1.2097011 1.2412815 1.0496874
1307   Moses 3978937424 0.9467125 0.9029171 0.9344295
1642    Hank 1703925000 1.1991725 0.9310929 0.8100584
1674    Rita 1838885550 1.1614969 1.0520367 1.2059076
1754 Margary 1483386250 0.9990865 0.9891363 0.6922093
5
ответ дан Cath 22 August 2018 в 22:18
поделиться

Одно решение: 

for (column.name in names(tbl_data) [3:ncol(tbl_data)]) {
  tbl_data[column.name] = tbl_data[column.name] / tbl_data$Col
}
1
ответ дан Erin 22 August 2018 в 22:18
поделиться 
require(magrittr)
df[,-(1:2)] %<>% sapply(`/`, df[,2])
1
ответ дан Ryan 22 August 2018 в 22:18
поделиться
Другие вопросы по тегам:

Похожие вопросы: