Skip to content
Home » Calculating shares by row in R using data.table

Calculating shares by row in R using data.table

In R, it often happens that I need to calculate the share of each column by row. In this very simple example I would like to update the following table:

applesorangesbananaspineapples
2463
1092
5123

and I would like to be:

applesorangesbananaspineapples
0.130.270.40.2
0.0800.750.17
0.50.10.20.2

As you can see, every cell now contains the share its absolute value accounts for in the row. Using data.table, there is an easy way to do this.

rsums <- rowSums(fruit])
fruit <- fruit[,lapply(.SD,function(x) {x / rsums})]
rm(rsums)

In the data.table package, the .SD acronym stands for “subset of the data”. By doing a lapply over .SD, without specifying .SDcols, we are applying the function over all the columns. However, if you would only want to apply the function to apples and oranges, one would use:

rsums <- rowSums(fruit])
fruit <- fruit[,lapply(.SD,function(x) {x / rsums}), .SDCols = c('apples','oranges')]
rm(rsums)

By the way, if you’re having trouble understanding some of the code and concepts, I can highly recommend “An Introduction to Statistical Learning: with Applications in R”, which is the must-have data science bible. If you simply need an introduction into R, and less into the Data Science part, I can absolutely recommend this book by Richard Cotton. Hope it helps!

Good luck!

Say thanks, ask questions or give feedback

Technologies get updated, syntax changes and honestly… I make mistakes too. If something is incorrect, incomplete or doesn’t work, let me know in the comments below and help thousands of visitors.

34 thoughts on “Calculating shares by row in R using data.table”

  1. Pingback: https://www.blackhatlinks.com

  2. Hey there! Do you use Twitter? I’d like to follow you
    if that would be okay. I’m undoubtedly enjoying your blog and look forward to new
    posts.

  3. I love your blog.. very nice colors & theme. Did you design this website yourself or did you hire someone to do
    it for you? Plz answer back as I’m looking to create my own blog and would like to find out where u got this from.
    cheers

  4. Remember: First dates are usually not the time to discuss exes.
    Listening expertise are more than just waiting in your
    flip to talk. There are almost 13 million single-mother or father
    households within the U.S.

  5. A German-American Chronology Archived May 13,
    2012, at the Wayback Machine, tailored from: The German Individuals:
    An Ethnic Experience by LaVern J. Rippley and Eberhard Reichmann.

    CCNY Archival Finding Assist Archived March 3, 2016,
    on the Wayback Machine, p.

  6. Muthiora, Brian; Bahia, Kalvin (2020). The
    Mobile Money Regulatory Index 2019 (PDF). Villanova, Hector Carcel; Chhabra, Esha; Fan, Yingjie (2020).

    FINANCIAL ACCESS SURVEY 2020 Trends and Developments.
    Nations Capital Development Fund. United Nations
    Capital Development Fund. Ketkar, Kusum W. Ketkar, Suhas L.
    Bank nationalization, financial savings, and economic development :
    a case study of India. World Bank. World Bank Global Findex.

  7. Retweets are when an individual sees another tweet that they want to share on their profile and
    they “retweet” it. Listed here are a few examples:
    A lightweight aluminum or plastic chair might be rust-resistant
    and simple to maneuver around if you happen to plan on dragging it into the entrance yard for
    the annual neighborhood block celebration or stowing it in the shed come October.

  8. An inkjet printer makes use of liquid ink for its printing needs,
    whereas a laser printer uses a distinct machine. Credit goes to Yukio
    Horie who mixed a felt-tip pen with water-based ink to invent the highlighter.
    In November 1990, Michael I. Roth was named president and chief operating officer of
    Mutual Life, succeeding Farley who continued as chairman and chief government.

    The remainder of us mere mortals have to
    thank the 3M employee named John Borden for inventing the first tape
    dispenser. Solely the very Zen office mate has
    the ability to get a piece of Scotch tape without a tape
    dispenser. Scotch tape is the frequent clear tape used in offices, however
    “Scotch” refers to a specific 3M model. The
    commonest one is the essential calculator; it does the simple math calculations
    you want each day. In any other case, laser printers want one of these to purr.
    Laser printer paper suits office paperwork better.

  9. Analysis areas vary from experimental rocket propulsion to growing the primary ever lithium-ion primary aircraft battery to be used within the
    B-2 stealth bomber. The Air Vehicles Directorate, situated
    at Wright-Patterson AFB, has the mission of developing applied sciences that support value-efficient and
    survivable aerospace autos able to accurate and fast delivery of a wide range of future weapons or cargo wherever.
    Each directorate is composed of a lot of divisions and typically has at least three
    assist divisions along with its analysis divisions.
    The mission of the information Directorate, positioned at the
    Rome Research Site on the Griffiss Enterprise and Expertise Park in Rome, New York, is to guide the discovery, growth, and integration of reasonably priced
    warfighting information technologies for air, house,
    and cyberspace forces. The data Directorate has contributed analysis to a number of applied sciences which
    have been deployed in the sphere. In homage to the predecessor laboratories, the new organization named 4 of the research websites after the
    laboratories and assured that every laboratory’s
    historical past would be preserved as inactivated items.
    AFOSR’s analysis is organized into four scientific directorates: the Engineering and Advanced Techniques Directorate; the information and Networks Directorate;
    the Physical Sciences Directorate; and the Chemistry and Biological Sciences
    Directorate.

  10. Some might interpret Wall Street, or the stock market,
    as just such a place: a buzzing center of economy, with investors calling out to buy
    or sell stocks based on nothing more than investor
    confidence – or essentially, belief in something’s value.
    However, GDP tends to be reported as synonymous with economic progress
    by journalists and politicians, and the GPI seeks to correct this shorthand by providing a more encompassing measure.

  11. But considering its slope, any textbook rebound should run out
    of steam in the 1,260-1,270 range, and be followed by a re-testing of the August 2011 low of
    1,101. My guess is that the test will fail and the S&P 500 decline will meet the
    20% rule-of-thumb definition of a bear market. Too much coverage
    will have you paying a higher premium each month which will not match the
    payout you would receive, should a claim be filed.

  12. Always conscious of the zeitgeist, watchmakers are also churning out “killer app” timepieces
    packed with functions targeted at specific activities, including climbing, diving, fishing, golfing, motor racing and sailing.
    By embracing change and stepping out of your comfort zone, you can attract financial abundance and create a solid foundation for long-term prosperity.

  13. Business management courses are being pursued by majority of the candidates than ever
    before. By understanding local and global events, you will find it easier to determine which locations and areas are safer and more stable than others.
    An employer’s retirement plan is a remarkable concept
    since there will be much lower taxes and the employer might match
    your savings as well.

  14. 1980年代: 寿限無No.1! 1980年代: お調子者で行こう – 日常
    〜COM’ON! 1980年代: エエトコドリ! 1990年代: タリラリラーン ロックンロール – FUTAMATA(女性編)〜アッシー君とツクシンボ〜 –
    勝手にシンドバッド – やってミソ! 2000年代: かもたつ –
    図星でしょ☆ – 劇的な日常 – 絶対キレイになってやる!始まりの合図は、通常放送では「さぁ、体操の後は、ドレミファ列車!作家の種村直樹は、雲仙噴火被害発生以来、島原鉄道への救援カンパ呼び掛けの活動を行っていたが、この事故をきっかけに、輸送機関としての基本である安全を守る姿勢に問題ありとの立場から支援を中止した。

  15. 50 11月18日 一日えちぜん! 81 10月25日 日光けっこう!西日本の国際的な玄関口であり、関西三空港の一つとして大阪国際空港(伊丹空港)、神戸空港とともに関西エアポート株式会社によって一体運営が行われている。 また、神戸空港開港後は、摩耶埠頭近辺の空域が神戸空港離着陸機に割り当てられたため、関西国際空港の空域を制限することになっており、関西国際空港・

  16. 地球バラバラ」では、地球がバラバラになったときにも超能力でくっ付けて元に戻すほどの力を見せた。 その宇宙人による蘇生手術で無事に生き返るが、手術のあと与えたOBショックの副作用で超能力と千兵衛のものをも上回る発明品を造るほどの高い知能を身につける。 」とヒロインに強引にキスや抱擁を迫り悲鳴をあげたヒロインは、京一郎に平手打ちをして(しないこともある)、方言で「このダメ男!
    2018年から始まったコーナーで、秘密のOSAKAと同様、京都府民(主に京都市民)だけの特徴を取り上げる。鳥山は「正直、あまりキャラクター設定の練り込みをしないまま急いで登場させてしまった感がある。

  17. 1972年4月15日生まれ。 やっぱりさんま大先生(1996年・賢プロダクション.
    2022年7月18日閲覧。 3. 2019年2月23日閲覧。 2021年2月28日閲覧。 2022年6月16日閲覧。石原さとみ&田中圭らフジテレビ春ドラマ豪華出演者がガチンコ勝負『FNS春の祭典2020』 テレビドガッチ、2020年3月28日配信・

  18. チューコーネン仮面によると「目覚めると7日で世界がおもちゃに変わる」と言われている。 しかししんのすけは内容をほとんど覚えておらず、チューコーネン仮面も出てなかったので知らなかったが、終盤のある行動がきっかけで思い出した。最終更新 2024年6月23日 (日) 05:
    45 (日時は個人設定で未設定ならばUTC)。 ブログは同年代の人というよりも、年上が多いから、新たに私のことを知ってもらうにはもってこいなんです。 「ボイ宣言の下、オーストラリアは、太平洋巡視艇の更新、航空監視プログラムの開始、地域の安全保障連携の強化を含む、30年に及ぶ『太平洋安全保障プログラム(PMSP)』を発足させた」と同氏は述べた。 2話)、櫻井洋介(第3・

  19. DVD盤のDVDには前期のオープニングおよびエンディングのノンテロップムービーが収録されている。前期のオープニングテーマとエンディングテーマを収録。戦争末期には、尼崎の機械工場、中央区の造幣局、中心地の商業地区、港湾施設への徹底的な爆撃(大阪大空襲)のため、都市は灰燼に帰した。 2021年5月からは大阪市住之江区の大阪南港・ “2014年4月より大阪北港マリーナへ名称変更”.近代以前の大阪府については「大阪」も参照。

  20. ハチミツ二郎が事務所を退社しフリーに 相方・身体表現のお姉さんのみが地方に行って収録が行われるようになった。 アレンジで再録した楽曲を収めた『最高築』を発表した。横断中に車に轢かれそうになった所をタイムスリップして落下してきたゾロリ達に助けられ、手違いから指名手配されたゾロリに当時高校の先輩であったゾロンドのために作製したかいけつゾロリによく似たスーツを一時的に手渡した。以下以外には名前は登場しない。

  21. 発売の経緯。雷電V(開発の経緯・開発経緯・返校(zh:返校)(開発・当時の日本には教習所での大型自動二輪免許の教習がなく、大型自動二輪免許を取得するには各自治体の免許試験場での限定解除試験、いわゆる”一発限定解除”が必要で労力も時間も金額も今とは比べ物にならないほどかかった。 しかし、そのころからさだは再び肝炎を患いプロデューサーに1年間の休養を打診したが、聴衆から忘れられるという理由で断られている。

  22. 「てまえ/てまい」「われ」「おのれ/おどれ」は一人称からの転で、「われら」は「わんら/わんだ(大津市真野)」、「おのれら」は「おのんら/おんら」などとも。一般的なのは「あのひと」で、親しい同輩以下には「あのこ」とも(大人であっても「子」)。繰延税金資産とは、一般的に将来の課税所得から法人税などの先払いに充てられるものであり、会計科目上は資産として計上されます。靴を履きかえる場所に敷く板。 このほか、「わたし」のくだけた形で主に都市部の女性が用いる「わて/あて」、「おら」の転で下品とされる「うら」などがある。 「わし」のくだけた形に「わい」があり、都市部以外の男性が用いる。中年以下の女性では「うち」や「わたし」の勢力が強く、男性も改まった時には「わたし」を用いる。 250モンツァと同じエンジンで22馬力。

  23. アトランティスの鬼角弾(核ミサイル)発射基地である、鬼岩城の自動報復システムを制御管理するコンピュータ。完全自律型のバトルフィッシュとは異なり、全てポセイドンの直接制御下に置かれ、ポセイドン破壊後はその機能を停止した(原作ではドラえもんが「ただの鉄くず」と評していたが、映画ではジャイアンが「銅像みたいに固まった」と評していた)。破壊され、その直後に鬼岩城は周囲の国土もろとも海底火山の大噴火に巻き込まれ、アトランティスは完全に滅亡した。当時永谷園から出ていた「ドラえもんシリアル」に、ワンカット海底鬼岩城のドラえもんが出演していた。

  24. 、翌年の1997年には『LOVE LOVE あいしてる』のバックバンドを務めたLOVE LOVE ALL STARS共に制作したセルフカバーアルバム『みんな大好き』が20万枚以上の売り上げを記録した。 ご飯茶わんで「お茶」を飲む行為に賛否、専門家は? 1994年8月16日に参加した『日本をすくえ’94 〜奥尻島、島原・式内社、加賀国一宮。 またロシア内、ロシア正教会に限ると、至聖三者聖セルギイ大修道院(=ラドネジの聖セルギイの不朽体のある場所)なども挙げられる。 1982年6月に、ツアー最中の株主総会で、アーティスト業に専念するため、フォーライフ・

  25. 「南の海(サウスブルー)」出身。握力の6種目)、身体検査があります。神体として男神の姿をした天照大神・神棚の移動・神棚の処分方法4選・ 「弥生会計 オンライン」なら借方・ また、宇宙創生の理論であるビッグバン理論の提唱者である宇宙物理学者のジョルジュ・

  26. “【天皇陛下の譲位】政府首脳、毎日新聞の「前天皇」報道を否定”.

    “宮内庁、毎日「陛下 公務否定に衝撃」報道を否定 有識者会議意見に不満のご発言「事実ない」 毎日は「十分な取材に基づいている」”.当時はスターが結婚したら人気は間違いなく落ちる、というのも世の常識だったが逆に人気が上昇した。 “【譲位特例法成立】譲位特例法が成立 譲位は江戸時代後期以来(2/2)”.一方この項目がマイナスであれば、設立からこれまでトータルでは赤字だということになります。

  27. 最近では門の前に飾る人が少なくなりましたが、本来は家の入り口(玄関)の両脇に飾るのが習わしです。最近では雑貨屋さんや花屋さんでも、おしゃれなインテリアに馴染むしめ飾りを見かけることが多くなりました。精選した上白糖を成形後、包装した置物タイプの鏡餅です。砂糖で作られているため、味の変化がなく長期間の保存が可能。 お正月に年神様を迎える準備ができているので、安心して神聖な場所に降りてこられるように、という意味でしめ飾りを飾るのです。 しめ縄は、神様のいる場所とその外の世界を区別するための、境界線のような役割をになっていて、飾られた場所が神聖な場所であることを表します。

Leave a Reply

Your email address will not be published. Required fields are marked *