小编Tom*_*hes的帖子

我有这样的数据集(为简化说明而简化):

zz <- textConnection("Company   Market.Cap  Institutions.Own    Price.Earnings  Industry
 ExxonMobil 405.69  50% 9.3 Energy
 Citigroup  156.23  67% 18.45   Banking
 Pfizer 212.51  73% 20.91   Pharma
 JPMorgan   193.1   75% 9.12    Banking
 ")
Companies <- read.table(zz, header= TRUE)
close(zz)

我想创建一个具有以下属性的气泡图(好像气泡图):

• 每个泡沫都是一家公司,泡沫的大小与市值挂钩,
• 泡沫的颜色与工业联系在一起,
• x轴有两个类别,Industries.Own和Price.Earnings,
• 并且y轴为1-10比例,每个公司的值被标准化为该比例.(我当然可以在R之外进行归一化,但我相信R使这成为可能.)

需要说明的是,每个公司都会出现在结果的每一列中,例如,ExxonMobil将接近INSTIT.Own列和Price.Earnings列的底部; 理想情况下,公司名称将出现在其两个泡沫中或旁边.

我有一个像这样的哈希数组：

my_array_of_hashes = [
  { :customer=>"Matthew",
    :fruit=>"Apples",
    :quantity=>2,
    :order_month => "January"
  },
  { :customer => "Philip",
    :fruit => "Oranges",
    :quantity => 3,
    :order_month => "July"
  },
  { :customer => "Matthew",
    :fruit => "Oranges",
    :quantity => 1,
    :order_month => "March"
  },
  { :customer => "Charles",
    :fruit => "Pears",
    :quantity => 3,
    :order_month => "January"
  },
  { :customer => "Philip",
    :fruit => "Apples",
    :quantity => 2,
    :order_month => "April"
  },
  { :customer => "Philip",
    :fruit => "Oranges",
    :quantity => 1,
    :order_month => …

我想逐步介绍一个简单的哈希，显示每个键值对的值，并为用户提供更新该值的能力。至关重要的是，如果用户只是按回车键而不提供新值，则旧值应该可以保留。这是我的示例代码，可以工作，但看起来并不是特别的Ruby惯用语：

mydata = {"key1" => "value1", "key2" => "value2", "key3" => "value3"}

newdata = {}

mydata.each do |k, v|
    puts "current value is " + v.to_s
    input = gets.chomp
    if input.length == 0
        newdata[k] = mydata[k]
    else
        newdata[k] = input
    end
end

puts mydata
puts newdata