If-else使用csv文件的语句

时间:2015-08-31 18:11:49

标签: r shiny

我无法使用csv文件并将其集成到我的代码中。

例如:假设我有一个大数据集,让我们将其命名为数据,包含1,000行随机颜色,列行命名颜色。

此外,我还有另一个数据集,我们将其命名为chrono::high_resolution_clock,其中包含两列:// Supply the program with different icon sizes for different resolutions ArrayList<Image> icons = new ArrayList<>(); icons.add(ImageIO.read(getClass().getResource("/res/icons/tcc_icon-16x16.png"))); icons.add(ImageIO.read(getClass().getResource("/res/icons/tcc_icon-32x32.png"))); icons.add(ImageIO.read(getClass().getResource("/res/icons/tcc_icon-64x64.png"))); icons.add(ImageIO.read(getClass().getResource("/res/icons/tcc_icon-128x128.png"))); setIconImages(icons); second。假设If列包含一些随机颜色,If是一个数字。

我希望代码将Then替换为then列中的数字。

为什么

data$colors

不起作用?

1 个答案:

答案 0 :(得分:0)

ifelse(data$colors == second$If, data$colors == second$then, data$colors == data$colors)没有&#34;工作&#34;可能有两个原因。内在的原因是&#34; ==&#34;函数不是集合包含的测试,而是一个矢量化函数,可能无法成功匹配两个不同数据帧的列中的值。您可能确实想使用Richard注释中提到的%in%。但可能更重要的是,您没有将ifelse函数的值赋给任何东西。 (并且ifelse不会在结果和替代表达式中进行赋值.R是一种函数式语言。当你为一个对象赋值时,你真的只做有用的动作。你会做类似的事情:

 data$colors[ data$colors %in% second$If] <-  second$then[ match( data$colors, second$If) ]

这会将data$colors的任何值替换为seconds$then的值data$colors,该值由second$If - <div id="divPickupPlayer" runat="server"> <embed src="..\..\wwwroot\SubDirectory1\Subdirecotry2\Upload\0123456790_1_P.wav" type= "audio/wav" /> - 矢量中{{1}} - 值的位置向量索引。

(至少我认为应该发生这种情况。你没有提供测试数据,我们这里的许多人都认为这是你的责任,而不是我们的责任。所以这个理论对于我的逻辑或语法错误没有经过考验。互联网建议的标准保修:如果它破裂,你可以保留所有部分。)