31:T1f18,svg = { const width = 800; const height = 500; const margin = { top: 70, right: 80, bottom: 50, left: 60 }; const svg = d3.create("svg").attr("width", width).attr("height", height); const xScale = d3 .scaleLinear() .domain([1,5]) .range([margin.left+50,width-margin.right]); const xScale2= d3 .scaleLinear() .domain([1,20]) .range([width-margin.right,margin.left+50]); const xScale_r = d3 .scaleLinear() .domain([1,20]) .range([width-80,110]); const yScale = d3 .scaleLinear() .domain([1,5]) .range([height-margin.right-30,margin.top]); const yScale2 = d3 .scaleLinear() .domain([1,20]) .range([margin.top,height-margin.right-30]); const yScale_r = d3 .scaleLinear() .domain([0,25]) .range([0,height-100]); const aScale = d3 .scaleLinear() .domain([1,5]) .range([3.0,4.3]); svg .append("g") .selectAll("rect") .data(dataset) .join("rect") .attr("width", width) .attr("height", height) .attr("fill", (d) => {if(itemNum == "合計点"){ return `hsl(250,40%,12%)`} else if(itemNum != "合計点"){ return `hsl(250,0%,40%)`}}) svg .append("g") .selectAll("rect").data(dataset) .join("rect") .attr("x", (d) => xScale_r(d.総合順位)-10) .attr("y", (d) => 450-yScale_r(d.合計点)) .attr("width", 20) .attr("height", (d) => {if(itemNum == "合計点"){return yScale_r(d.合計点)}}) .attr("fill", (d) => `hsl(${600 - 10 * d.合計点}, 50%, 60%)`) .attr("fill-opacity", 0.35); svg .selectAll("text") .data(dataset) .join("text") .attr("text-anchor", "middle") .attr("x", (d) => xScale_r(d.総合順位)) .attr("y", 440) .attr("font-family", "sans-serif") .attr("font-weight", "bold") .attr("font-size", 11) .attr("fill", "white") .text((d) => {if(itemNum == "合計点"){return d.合計点}}); const circleExplain = svg .append("g") .selectAll("circle") .data(dataset) .join("circle") .attr("cx", (d) => {if (itemNum == "金額的被害度"){ return xScale(d.金額的被害度)} else if (itemNum == "生息域拡大度"){ return xScale(d.生息域拡大度)} else if (itemNum == "生態系的被害度"){ return xScale(d.生態系的被害度)} else if (itemNum == "身近度"){ return xScale(d.身近度)} else if (itemNum == "知名度"){ return xScale(d.知名度)} else if (itemNum == "総合順位"){ return xScale2(d.総合順位)} else if (itemNum == "合計点"){ return xScale2(d.総合順位)}}) .attr("cy", (d) => {if (itemNum2 == "金額的被害度"){ return yScale(d.金額的被害度)} else if (itemNum2 == "生息域拡大度"){ return yScale(d.生息域拡大度)} else if (itemNum2 == "生態系的被害度"){ return yScale(d.生態系的被害度)} else if (itemNum2 == "身近度"){ return yScale(d.身近度)} else if (itemNum2 == "知名度"){ return yScale(d.知名度)} else if (itemNum2 == "総合順位"){ return yScale2(d.総合順位)} else if (itemNum == "合計点"){ return yScale2(d.総合順位)}}) .attr("r", (d) => aScale(d.生息域拡大度*20)) .attr("fill", (d) => `hsl(${200 - 28 * d.金額的被害度}, 50%, 60%)`) .attr("fill-opacity", (d) => d.身近度*0.15); const xAxis = d3.axisBottom(); xAxis.scale(xScale).ticks(5); svg .append("g") .attr("transform", `translate(0,${height - margin.bottom})`) .attr("font-weight", "bold") .attr("fill-opacity", 1) .call(xAxis) .append("text") .attr("fill-opacity", 1) .attr("fill", "white") .attr("x", (width - margin.left - margin.right) / 2 + margin.left) .attr("y", 35) .attr("text-anchor", "middle") .attr("font-size", "10pt") .attr("font-weight", "bold") .attr("font-family", "sans-serif") .text(itemNum); const yAxis = d3.axisLeft(); yAxis.scale(yScale).ticks(5); svg .append("g") .attr("transform", `translate(${margin.left},0)`) .attr("font-weight", "bold") .attr("fill-opacity", 1) .call(yAxis) .append("text") .attr("fill-opacity", 1) .attr("fill", "white") .attr("x", -(height - margin.top - margin.bottom) / 2 - margin.top) .attr("y", -35) .attr("transform", "rotate(-90)") .attr("text-anchor", "middle") .attr("font-weight", "bold") .attr("font-size", "10pt") .attr("font-family", "sans-serif") .text(itemNum2); svg .append("g") .selectAll("text") .data(dataset) .join("text") .text((d) => d.生物名) .attr("text-anchor", "middle") .attr("x", (d) => {if (itemNum == "金額的被害度"){ return xScale(d.金額的被害度)} else if (itemNum == "生息域拡大度"){ return xScale(d.生息域拡大度)} else if (itemNum == "生態系的被害度"){ return xScale(d.生態系的被害度)} else if (itemNum == "身近度"){ return xScale(d.身近度)} else if (itemNum == "知名度"){ return xScale(d.知名度)} else if (itemNum == "総合順位"){ return xScale2(d.総合順位)} else if (itemNum == "合計点"){ return xScale2(d.総合順位)}}) 　.attr("y", (d) => {if (itemNum2 == "金額的被害度"){ return yScale(d.金額的被害度)} else if (itemNum2 == "生息域拡大度"){ return yScale(d.生息域拡大度)-5} else if (itemNum2 == "生態系的被害度"){ return yScale(d.生態系的被害度)-5} else if (itemNum2 == "身近度"){ return yScale(d.身近度)-5} else if (itemNum2 == "知名度"){ return yScale(d.知名度)-5} else if (itemNum2 == "総合順位"){ return yScale2(d.総合順位)} else if (itemNum == "合計点"){ return yScale2(d.総合順位)}}) .attr("fill", "hsl(30,70%,70%)") .attr("font-family", "sans-serif") .attr("font-weight", "bold") .attr("font-size", 10); const explaincip = svg .append("g") .attr("class", "tooltip_h") .style("pointer-events", "none") .style("visibility", "hidden"); explaincip .append("g") .append("rect") .attr("fill", "black") .attr("stroke", "white") .attr("fill-opacity", 0.45) .attr("width", 150) .attr("height", 100); const showexplaincip = (event) => { const mouseX = d3.pointer(event)[0] - 90; const mouseY = d3.pointer(event)[1] -60; const datum = d3.select(event.target).datum(); explaincip.attr("transform", `translate(${mouseX},${mouseY})`); explaincip .selectAll("text") .data([ { label: "生物名", value:　datum.生物名}, { label: "原産地域", value: datum.原産地域 }, { label: "生息域拡大度", value:　datum.生息域拡大度}, { label: "生態系的被害度", value: datum.生態系的被害度 }, { label: "金額的被害度", value:　datum.金額的被害度}, { label: "知名度", value: datum.知名度 }, { label: "身近度", value: datum.身近度 }, { label: "合計点", value: datum.合計点 } ]) .join("text") .text((d) => `${d.label}: ${d.value}`) .attr("x", 5) .attr("y", (d, i) => 12 + 12 * i) .attr("font-weight", (d, i) => (i === 0 ? "bold" : "normal")) .attr("font-size", 10) .attr("fill", "white"); explaincip.style("visibility", "visible"); d3.select(event.currentTarget) .attr("fill", (d) => `hsl(${790 - 28 * d.生態系的被害度}, 90%, 40%)`) .attr("r", (d) => d.生息域拡大度*20) }; const hideexplaincip = (event) => { explaincip.style("visibility", "hidden"); d3.select(event.currentTarget).attr("fill", (d) => `hsl(${200 - 28 * d.金額的被害度}, 50%, 60%)`).attr("r", (d) => aScale(d.生息域拡大度*20)); }; circleExplain .on("pointerenter pointermove", showexplaincip) .on("pointerleave", hideexplaincip); return svg.node();}32:T23b3,#### ミシシッピアカミミガメ（22.7点） ##### 一般には「ミドリガメ」でおなじみのカメの一種。飼いきれなくなったペットの野生化が主な原因だと思われる。ミシシッピはアメリカのミシシッピ州から取られている。アメリカ出身なだけあり、寒さに強く日本全国に生息している。雑食性でなんでもよく食べてしまうため、水性昆虫や小魚、エビなどの小さな甲殻類にも大きな影響を与える。繁殖力も高く在来種のカメが生存競争で負けてしまう。植物もよく食べるため、レンコン畑で年間１０００万円を超える食害を出したこともある。

#### アライグマ（22点） ##### 「ラスカル」というキャラクターで一躍有名になった。かわいい見た目と行動に反して気性が荒い動物であり、ペットには向いていなかった結果野生化してしまった。一部の都道府県をのぞいて全国に拡大。雑食性で様々な固有在来種への被害が大きく、また農産物を食い荒らすため金額的な被害も非常に大きい。知名度は今回選んだ生物の中でもトップクラスなのでは。

#### アメリカザリガニ（21点） ##### 言わずと知れたザリガニ。その辺にいるザリガニは全部こいつ。そのぐらい全国に拡大してしまった生物。ニホンザリガニの生息域を奪い尽くしたのもしかり、水辺の生態系への影響が大きい。今回、金額的被害度を調べることができなかったため「２」としたが、とんでもない被害額を出している可能性がある。推定飼育数が多いため、特定外来生物への指定が見送られている。大きなエビなので臭みを取れば美味しいらしい。

#### ブラックバス（20点） ##### 名前は聞いたことがあるはず。川や湖、沼に生息する魚の中では大型で肉食性が非常に強い魚。特定外来生物であるこの魚を日本から根絶しようという動きに対し、釣りごたえ抜群の魚がいなくなってしまうことを避けるために釣り好きの人たちが猛反発している。そのような事情もあり、外来生物も生態系に含まれるのではないのか？という不毛な問いの対象になりがち。金額的な被害度は調査不可だったが、全国的な生物かつ侵略性の高い生き物なのでそれなりの被害が出ていると思われる。

#### オオオナモミ（19.3点） ##### 草ムラに入ったときに服にひっついてくるトゲトゲの実のキク科の植物。他の植物の生息域を奪い、全国的に拡大している。名前はあまり知られていないが、写真を見れば「あーこれそういう名前だったんだ」となると思われる。都会に住んでいる人はあまり目にしたことがない可能性が高い。

#### ムラサキイガイ（19.1点） ##### 別名ムール貝。サイゼリヤとかの皿の上でも確認できる。船のバラスト水に幼生が混入していたことにより、日本どころか全世界的に拡大。実を言うと生態系への影響をどう評価するかによっては今回のランキングでトップだった可能性がある。もはや環境問題としてどうすることもできない生物であるため、今回生態系的被害度を「１」とし生態系の一部とみなした。この１は生物的な強さの証である。生態系の一部とみなしたものの、海産物への被害が大きく日本では年間で億を超える被害額を出している。

#### ドバト（18.9点） ##### 皆さんご存知、鳩です。農産物への被害が確認されている。

#### ヒメジョオン（18.2点） ##### 恐らく一度は目にしたことがあるはず。白く可愛げな小さな花を咲かせるキク科の植物。どこにでも生えている、いわば雑草であるため、知らず知らずのうちに視界に入っている可能性が高い。同じような環境で育つ植物の生息域を奪う。金額的被害度が不明なので「２」としたが、恐らく０に近い。

#### ウシガエル（17.8点） ##### カエルの中では比較的名前が知られている本種。元は食用で持ち込まれた種類だが、まあ食べたいかと聞かれたら大体の人は食べたくないだろう。非常に大型のカエルでネズミや小型の鳥類すら捕食する。そのため生態系への影響が大きい。生息できる場所が限られているため、知名度の割に見つかりづらい種類である。

#### ニジマス（16.8点） ##### 塩焼きが美味しい。全国的に釣り堀などで放流されているが、環境が合わないため野生化しない。一方で北海道では野生化し、在来種を侵略している。金額的被害は不明だが、北海道ではそれなりに被害が出ている可能性がある。

#### チャバネゴキブリ（16.4点） ##### 説明は割愛する。今回の記事に全生物の写真を載せなかったのはこの生物が原因だ。

#### セイタカアワダチソウ（15.9点） ##### 蜜源植物であり、養蜂業との関わりもある。こちらも見たことがある人は多いはずだ。地下部でアレロパシー物質を分泌し、他の植物の種子発芽を抑制する。そのため、この植物が生えていると他の植物はほとんど生えることができず、セイタカアワダチソウの純群落が形成される。加えてすぐに増えてしまうので、環境省では要注意外来生物に指定されている。高校の生物の教科書や資料集でよく紹介される。

#### ホテイアオイ（15.1点） ##### ホームセンターでも観賞用としてよく売られている植物。浮き袋のような構造があり、水に浮かび水中に根を伸ばす。薄紫の美しい花を咲かせるが、この水に繁茂する性質上、河川などで流されて容易に広がってしまう。また、爆発的に増えたホテイアオイが一斉に枯れることで水質の悪化を招くこともある。

#### イネミズゾウムシ（15点） ##### 幼虫によってイネの根が食い荒らされてしまうために農業被害が起こる。全国的に多く生息している生物であるが、農業従事者以外の人はほとんど知らない虫であろう。

#### ヤノネカイガラムシ（13.2点） ##### こちらも農業害虫として知られる。濃い紫色をした小さな虫。カメムシの仲間。果実に寄生すると果実の見た目にも影響してしまうため、金額的被害は思ったよりも大きいと思われる。探そうと思えば身近なところにもいる可能性がある。

#### ジャワマングース（12.2点） ##### 毒蛇であるハブを駆除するため、沖縄に持ち込まれた動物。外来生物の例としてよく用いられる。しかし、生活の時間帯が真逆であったため、むしろ他の在来種を食べまくってしまい、生態系を崩壊に導いた。養鶏場のニワトリに被害が出たこともある。有名な動物で言うとミーアキャットもマングースの仲間。

#### コウライキジ（11.3点） ##### 狩猟用に持ち込まれたものが野生化したとされている。本種はニホンキジと容易に交雑してしまう上に、子供が生殖能力を持つため遺伝子汚染の原因となる。ニホンキジを本種の亜種とする分類もある。

#### グリーンアノール（9.1点） ##### 沖縄や小笠原諸島に生息している緑色のトカゲ。ペットとして持ち込まれたものが原因と考えられている。小笠原諸島では複数種類のトンボを絶滅させている。

#### セアカゴケグモ（8.3点） ##### オーストラリア原産の小さな毒蜘蛛。背中に赤い稲妻のような模様がある。毒性が極めて強く、噛まれると最悪の場合死に至る。そのため注意喚起のポスターが作られたり、捕獲に懸賞金がかかっていることもある。とはいえ小さなクモで数も少ないため、生態系的な被害や金額的な被害はほぼない。

#### アフリカマイマイ（6.7点） ##### 手のひらサイズのカタツムリ。沖縄県や小笠原諸島などの南の方の島に生息している。食用目的で導入されたそうだが、このカタツムリを触ったり食べたりすると脳障害を起こす寄生虫に感染してしまう恐れがある。多くの国で有害生物指定されている。33:[{"id":"47ca3664165ccb071aa142ddedde530f3eb1709e201f19e8010537e31fcaea7cd9233783104391de8f01c48162ca098524fd2ae5275cfd16a30a16d667cb6694","href":"https://static.observableusercontent.com/files/47ca3664165ccb071aa142ddedde530f3eb1709e201f19e8010537e31fcaea7cd9233783104391de8f01c48162ca098524fd2ae5275cfd16a30a16d667cb6694","name":"スクリーンショット 2022-01-20 19.31.29.png","type":"image/png","lastModified":1642674989180.403,"size":205137},{"id":"76ef78c8f617cdd37753d7beef3630d0f9d6e1a90c11c90c18dce97cd5927ba4109e3f6f67294e13fa88c25131d2ab4c1b559a9792895a2d9e53de6fc9d57c58","href":"https://static.observableusercontent.com/files/76ef78c8f617cdd37753d7beef3630d0f9d6e1a90c11c90c18dce97cd5927ba4109e3f6f67294e13fa88c25131d2ab4c1b559a9792895a2d9e53de6fc9d57c58","name":"ネットサムネ.png","type":"image/png","lastModified":1643272912014.319,"size":361313},{"id":"99644f9be161667438d035bfe7bc37f59475974ae39cbde8d3a36d5e504a952485a5b545f138a3ad52ccc4299208c83910fac712b09348dbc305800bfef1f508","href":"https://static.observableusercontent.com/files/99644f9be161667438d035bfe7bc37f59475974ae39cbde8d3a36d5e504a952485a5b545f138a3ad52ccc4299208c83910fac712b09348dbc305800bfef1f508","name":"nature-gc70b1797a_640@1.jpg","type":"image/jpeg","lastModified":1643266092671.74,"size":63632}] 2f:{"title":"","cells":[{"id":474,"value":"FileAttachment(\"ネットサムネ.png\").image()","pinned":false,"hidden":false,"mode":"ojs"},{"id":0,"value":"## 外来生物の被害度、知名度などに相関はあるのか？","pinned":false,"hidden":false,"mode":"md"},{"id":483,"value":"### 環境問題とはいえ、外来生物を知る機会というものは存外に少ない。","pinned":false,"hidden":false,"mode":"md"},{"id":513,"value":"##### ニュースで見たことがあるから知っている。名前は知っていたが外来生物とは思っていなかった。そんな人も多いのではないだろうか。今回の記事では、もしかしたら知っているかもしれない20種類の外来生物をピックアップし、その被害度や知名度及びそれらの指標同士がどう関係するのかの可視化を試みた。見る人もここから何か発見があったら嬉しく思う。","pinned":false,"hidden":false,"mode":"md"},{"id":69,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":524,"value":"### 一目見て、このグラフが意味するものとは？","pinned":false,"hidden":false,"mode":"md"},{"id":518,"value":"##### 合計点とは、今回用意したそれぞれ５点満点の指標(※記事の末尾参照)──知名度、生態系的被害度、金額的被害度、生息域拡大度、身近度を全て足したものであり、25に近い値であればあるほど色々な方向に影響力のある生物だと言える。","pinned":false,"hidden":false,"mode":"md"},{"id":541,"value":" #### このグラフの詳しい見方","pinned":false,"hidden":false,"mode":"md"},{"id":548,"value":"##### 円の大きさは生息域拡大度を表し、そして円の色が黄色に近ければ近いほど金額的被害度が大きい。また、色の不透明度が高いほどその生物が身近な生き物であることを表す。円にカーソルを合わせた時、円の色が紫に近づくほど生態系への影響が強い生き物であることを表す。","pinned":false,"hidden":false,"mode":"md"},{"id":567,"value":"### それぞれの生物についての解説","pinned":false,"hidden":false,"mode":"md"},{"id":574,"value":"##### 「この生物、名前すら知らない」という人のために今回ピックアップした生物それぞれの簡単な紹介をこのグラフと交えて合計点の高い順に述べていく。","pinned":false,"hidden":false,"mode":"md"},{"id":578,"value":"$32","pinned":false,"hidden":false,"mode":"md"},{"id":622,"value":"### 結論・考察

\n##### 今回、選ばれた生物が20種類と少ないためデータ不足になっている可能性は大いにあるが、指標同士に相関関係が見られる組み合わせはほとんど存在しない。もっとも相関が見えるもので生息域拡大度と身近度だ。広い範囲に生息している生物はより身近な生き物になりやすい──これは当たり前のことだろう。ただ一方で、知名度と全指標の合計点には正の相関が見られ、合計点が16点を超えたあたりで知名度が跳ね上がっている。知名度も加算している合計点と正の相関になるのは必然だが、それを踏まえても知名度が高い生物は他の指標も高い傾向にあることが窺える。今回のグラフにおいて例外はジャワマングースとヒメジョオンの二種であるが、この二つの身近度と知名度が釣り合っていないことが原因と考えられる。","pinned":false,"hidden":false,"mode":"md"},{"id":43,"value":"### 指標について

\n\n#### 生息域拡大度(円の大きさ)\n１. 流入した場所から拡大していない。
\n２. 一部の地域で拡大している。
\n３. 日本の半分程度に拡大している。
\n４. 日本のほぼ全域に生息している。
\n５. 全国に多く生息している。
\n\n#### 生態系的被害度（カーソルを合わせたとき被害が大きいほど円の色が紫に近づきます）　\n１. 影響があまりない。
\n２. 生態系が影響を受ける可能性がある。
\n３. 環境問題としてニュースになる最低レベル。
\n４. 他の生物の生息域を侵略し、絶滅させる恐れがある。
\n５. すでに他の生物を絶滅させている。または影響力が甚大と認められる生物
\n\n#### 金額的被害度（被害が大きいほど黄色に近づきます）\n１. ほぼ被害がない。
\n２. 有力なデータが見つからないが、恐らくそれなりに被害が出ている。
\n３. 日本で年間５０万円以上の被害が出ている。
\n４. 日本で年間１０００万円以上の被害が出ている。
\n５. 日本で年間１億円以上の被害が出ている。
\n \n#### 知名度(アンケート項目)　 \n１. 名前を知る人はほぼいない。
\n２. 一般には知られていない。
\n３. 聞いたことぐらいはある。
\n４. 実物や写真を見たことがある。
\n５. 誰でも知っている。
\n \n#### 身近度（数値が高いほど円の不透明度が高くなります） \n１. 普通に暮らしていて身近にはまずいない。
\n２. 見かけることはあるかもしれない。
\n３. 見つけようと思えばすぐに見つかる。
\n４. 日常の中に溶け込んでいる。
\n５. 探さなくても目に入る。
","pinned":false,"hidden":false,"mode":"md"},{"id":614,"value":"## 横軸縦軸の変更
\n#### 項目を変更して色々な組み合わせで見てみることができます。
\n#### ※上のグラフが変化します。","pinned":false,"hidden":false,"mode":"md"},{"id":135,"value":"viewof itemNum = Inputs.select(itemList, { label: md`__横軸__` })","pinned":false,"hidden":false,"mode":"ojs"},{"id":164,"value":"viewof itemNum2 = Inputs.select(itemList2, { label: md`__縦軸__` })","pinned":false,"hidden":false,"mode":"ojs"},{"id":31,"value":"Inputs.table(dataset)","pinned":false,"hidden":false,"mode":"ojs"},{"id":214,"value":"### 知名度アンケート結果\n###### A2-A21は生物名に相当します。B1−J9は回答者に相当します。Kは指標の合計点です。Lは平均値です。\n![スクリーンショット 2022-01-20 19.31.29.png](${await FileAttachment(\"スクリーンショット 2022-01-20 19.31.29.png\").url()})","pinned":false,"hidden":false,"mode":"md"},{"id":423,"value":"参考（金額的被害）

\n環境省自然環境局
\nhttps://www.env.go.jp/nature/intro/
\n農林水産省
\nhttps://www.maff.go.jp/j/press/index.html
\ne-stat
\nhttps://www.e-stat.go.jp/dbview?sid=0003322911","pinned":false,"hidden":false,"mode":"md"},{"id":640,"value":"冒頭の写真。Find CCより。下記は作者のダウンロードページ。\nhttps://pixabay.com/photos/nature-animal-mammal-raccoon-wild-3506744/","pinned":false,"hidden":false,"mode":"md"},{"id":141,"value":"itemList = [\"合計点\",\"知名度\",\"生息域拡大度\",\"生態系的被害度\",\"金額的被害度\",\"身近度\"];","pinned":false,"hidden":false,"mode":"ojs"},{"id":407,"value":"itemList2 = [\"知名度\",\"総合順位\",\"生息域拡大度\",\"生態系的被害度\",\"金額的被害度\",\"身近度\",];","pinned":true,"hidden":false,"mode":"ojs"},{"id":25,"value":"url = \"https://docs.google.com/spreadsheets/d/e/2PACX-1vRFZK817ZOymD0zr6EpuqEw0CTnsCtkeiyW-i-nfJguEGPnl34s2cZPDC2KR8ssCUvntUzD2jODRZqE/pub?output=tsv\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":28,"value":"d3.tsv(url, d3.autoType)","pinned":false,"hidden":false,"mode":"ojs"},{"id":33,"value":"dataset = d3.tsv(url,d3.autoType)","pinned":false,"hidden":false,"mode":"ojs"}],"files":"$W33","stdlib":"1","titling":"auto"}