根据min计算特定行

时间:2018-05-10 18:24:47

标签: r

我的数据看起来像这样

return (
    <KeyboardAvoidingView style={styles.containerStyle} behavior="padding" enabled>
      <CommentsHeader
        imageUrl={otherParam.imageUrl}
        creationTime={otherParam.creationTime}
        firstName={otherParam.firstName}
        lastName={otherParam.lastName}
      />
      <FlatList
        data={comments.data}
        renderItem={this.renderDetailsItem}
        keyExtractor={(item, index) => index.toString()}
        style={styles.listStyle}
      />
      <CommentsWrite
        comment={this.state.comment}
        changeText={comment => this.setState({ comment })}
        writeComment={this.writeComment}
      />
    </KeyboardAvoidingView>

);

const styles = StyleSheet.create({
  listStyle: {
    flex: 1,
    width: '100%',
    zIndex: 2,
  },

  containerStyle: {
    height: '100%',
    width: '100%',
  },

我试图将每个x值乘以y或1,具体取决于具有最小值的x值。

df <- data.frame(x = c(3, 5, 4, 4, 3, 2),
                 y = c(.9, .8, 1, 1.2, .5, .1))

问题是它取整列的最小值,所以每x乘以0.1。

相反,我需要x乘以.9,.8,1,1,.5,.1 ......

2 个答案:

答案 0 :(得分:5)

我们需要pmin才能查看&#39; y&#39;的每个值。并在与第二个值(再循环)进行比较时获得最小值

pmin(df$y, 1)
#[1] 0.9 0.8 1.0 1.0 0.5 0.1

同样,我们可以有n个参数(参数为...

pmin(df$y, 1, 0)
#[1] 0 0 0 0 0 0

要获得输出,只需乘以&#39; x&#39;使用pmin输出

df$x * pmin(df$y, 1)

也可以写成

with(df, x * pmin(y, 1))

答案 1 :(得分:4)

也许你可以使用ifelse函数:

 setup: function (editor) {
                editor.on('change', function () {
                    tinymce.triggerSave();
                });

这将比较每一行的值。

希望它有所帮助! :)