{"id":1584,"date":"2023-07-25T18:29:30","date_gmt":"2023-07-25T18:29:30","guid":{"rendered":"https:\/\/statorials.org\/pl\/nie-w-r\/"},"modified":"2023-07-25T18:29:30","modified_gmt":"2023-07-25T18:29:30","slug":"nie-w-r","status":"publish","type":"post","link":"https:\/\/statorials.org\/pl\/nie-w-r\/","title":{"rendered":"Jak obliczy\u0107 auc (pole pod krzyw\u0105) w r"},"content":{"rendered":"<p><\/p>\n<hr>\n<p><span style=\"color: #000000;\"><a href=\"https:\/\/statorials.org\/pl\/regresja-logistyczna-1\/\" target=\"_blank\" rel=\"noopener noreferrer\">Regresja logistyczna<\/a> to metoda statystyczna, kt\u00f3rej u\u017cywamy do dopasowania modelu regresji, gdy zmienna odpowiedzi jest binarna. Aby oceni\u0107, jak dobrze model regresji logistycznej pasuje do zbioru danych, mo\u017cemy przyjrze\u0107 si\u0119 nast\u0119puj\u0105cym dw\u00f3m metrykom:<\/span><\/p>\n<ul>\n<li> <span style=\"color: #000000;\"><strong>Czu\u0142o\u015b\u0107:<\/strong> prawdopodobie\u0144stwo, \u017ce model przewiduje pozytywny wynik obserwacji, gdy wynik jest rzeczywi\u015bcie pozytywny. Nazywa si\u0119 to r\u00f3wnie\u017c \u201eprawdziwie dodatni\u0105 stop\u0105 procentow\u0105\u201d.<\/span><\/li>\n<li> <span style=\"color: #000000;\"><strong>Specyficzno\u015b\u0107:<\/strong> prawdopodobie\u0144stwo, \u017ce model przewiduje negatywny wynik obserwacji, gdy wynik jest faktycznie negatywny. Nazywa si\u0119 to r\u00f3wnie\u017c \u201eprawdziwie ujemn\u0105 stop\u0105\u201d.<\/span><\/li>\n<\/ul>\n<p> <span style=\"color: #000000;\">Jednym ze sposob\u00f3w wizualizacji tych dw\u00f3ch pomiar\u00f3w jest utworzenie <strong>krzywej ROC<\/strong> , kt\u00f3ra oznacza krzyw\u0105 \u201echarakterystyki dzia\u0142ania odbiornika\u201d.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Jest to wykres przedstawiaj\u0105cy czu\u0142o\u015b\u0107 wzd\u0142u\u017c osi y i (1 \u2013 swoisto\u015b\u0107) wzd\u0142u\u017c osi x. Jednym ze sposob\u00f3w ilo\u015bciowego okre\u015blenia skuteczno\u015bci modelu regresji logistycznej w klasyfikacji danych jest obliczenie <strong>AUC<\/strong> , co oznacza \u201eobszar pod krzyw\u0105\u201d.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Im AUC jest bli\u017csze 1, tym lepszy model.<\/span><\/p>\n<p> <span style=\"color: #000000;\">Poni\u017cszy przyk\u0142ad pokazuje krok po kroku, jak obliczy\u0107 AUC dla modelu regresji logistycznej w R.<\/span><\/p>\n<h3> <span style=\"color: #000000;\"><strong>Krok 1: Za\u0142aduj dane<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Najpierw za\u0142adujemy <strong>domy\u015blny<\/strong> zestaw danych z pakietu <strong>ISLR<\/strong> , kt\u00f3ry zawiera informacje o tym, czy r\u00f3\u017cne osoby nie sp\u0142aci\u0142y po\u017cyczki.<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#load dataset\n<\/span>data &lt;- ISLR::Default\n\n<span style=\"color: #008080;\">#view first six rows of dataset\n<\/span>head(data)\n\n  default student balance income\n1 No No 729.5265 44361.625\n2 No Yes 817.1804 12106.135\n3 No No 1073.5492 31767.139\n4 No No 529.2506 35704.494\n5 No No 785.6559 38463.496\n6 No Yes 919.5885 7491.559\n<\/strong><\/pre>\n<h3> <span style=\"color: #000000;\"><strong>Krok 2: Dopasuj model regresji logistycznej<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Nast\u0119pnie dopasujemy model regresji logistycznej, aby przewidzie\u0107 prawdopodobie\u0144stwo niewyp\u0142acalno\u015bci danej osoby:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#make this example reproducible\n<\/span>set. <span style=\"color: #3366ff;\">seeds<\/span> (1)\n\n<span style=\"color: #008080;\">#Use 70% of dataset as training set and remaining 30% as testing set\n<\/span>sample &lt;- sample(c(TRUE, FALSE), nrow(data), replace= <span style=\"color: #008000;\">TRUE<\/span> , prob=c(0.7,0.3))\ntrain &lt;- data[sample, ]\ntest &lt;- data[!sample, ] \n\n<span style=\"color: #008080;\">#fit logistic regression model\n<\/span>model &lt;- glm(default~student+balance+income, family=\" <span style=\"color: #008000;\">binomial<\/span> \", data=train)<\/strong><\/pre>\n<h3> <span style=\"color: #000000;\"><strong>Krok 3: Oblicz model AUC<\/strong><\/span><\/h3>\n<p> <span style=\"color: #000000;\">Nast\u0119pnie u\u017cyjemy funkcji <strong>auc()<\/strong> z pakietu <strong>pROC<\/strong> do obliczenia AUC modelu. Ta funkcja u\u017cywa nast\u0119puj\u0105cej sk\u0142adni:<\/span><\/p>\n<p> <strong><span style=\"color: #000000;\">brak(odpowied\u017a, przewidywana)<\/span><\/strong><\/p>\n<p> <span style=\"color: #000000;\">Oto jak u\u017cy\u0107 tej funkcji w naszym przyk\u0142adzie:<\/span><\/p>\n<pre style=\"background-color: #ececec; font-size: 15px;\"> <strong><span style=\"color: #008080;\">#calculate probability of default for each individual in test dataset\n<\/span>predicted &lt;- predict(model, test, type=\" <span style=\"color: #008000;\">response<\/span> \")\n\n<span style=\"color: #008080;\">#calculate AUC\n<\/span><span style=\"color: #993300;\">library<\/span> (pROC)\nauc(test$default, predicted)\n\nSetting levels: control = No, case = Yes\nSetting direction: controls &lt; boxes\nArea under the curve: 0.9437\n<\/strong><\/pre>\n<p> <span style=\"color: #000000;\">Okazuje si\u0119, \u017ce AUC modelu wynosi <strong>0,9437<\/strong> .<\/span><\/p>\n<p> <span style=\"color: #000000;\">Poniewa\u017c warto\u015b\u0107 ta jest bliska 1, oznacza to, \u017ce model bardzo dobrze radzi sobie z przewidywaniem, czy dana osoba nie sp\u0142aci po\u017cyczki.<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Regresja logistyczna to metoda statystyczna, kt\u00f3rej u\u017cywamy do dopasowania modelu regresji, gdy zmienna odpowiedzi jest binarna. Aby oceni\u0107, jak dobrze model regresji logistycznej pasuje do zbioru danych, mo\u017cemy przyjrze\u0107 si\u0119 nast\u0119puj\u0105cym dw\u00f3m metrykom: Czu\u0142o\u015b\u0107: prawdopodobie\u0144stwo, \u017ce model przewiduje pozytywny wynik obserwacji, gdy wynik jest rzeczywi\u015bcie pozytywny. Nazywa si\u0119 to r\u00f3wnie\u017c \u201eprawdziwie dodatni\u0105 stop\u0105 procentow\u0105\u201d. Specyficzno\u015b\u0107: [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-1584","post","type-post","status-publish","format-standard","hentry","category-przewodnik"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v21.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology<\/title>\n<meta name=\"description\" content=\"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/statorials.org\/pl\/nie-w-r\/\" \/>\n<meta property=\"og:locale\" content=\"pl_PL\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology\" \/>\n<meta property=\"og:description\" content=\"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/statorials.org\/pl\/nie-w-r\/\" \/>\n<meta property=\"og:site_name\" content=\"Statorials\" \/>\n<meta property=\"article:published_time\" content=\"2023-07-25T18:29:30+00:00\" \/>\n<meta name=\"author\" content=\"Benjamin Anderson\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Napisane przez\" \/>\n\t<meta name=\"twitter:data1\" content=\"Benjamin Anderson\" \/>\n\t<meta name=\"twitter:label2\" content=\"Szacowany czas czytania\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 minuty\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/statorials.org\/pl\/nie-w-r\/\",\"url\":\"https:\/\/statorials.org\/pl\/nie-w-r\/\",\"name\":\"Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology\",\"isPartOf\":{\"@id\":\"https:\/\/statorials.org\/pl\/#website\"},\"datePublished\":\"2023-07-25T18:29:30+00:00\",\"dateModified\":\"2023-07-25T18:29:30+00:00\",\"author\":{\"@id\":\"https:\/\/statorials.org\/pl\/#\/schema\/person\/6484727a4612df3e69f016c3129c6965\"},\"description\":\"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.\",\"breadcrumb\":{\"@id\":\"https:\/\/statorials.org\/pl\/nie-w-r\/#breadcrumb\"},\"inLanguage\":\"pl-PL\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/statorials.org\/pl\/nie-w-r\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/statorials.org\/pl\/nie-w-r\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Dom\",\"item\":\"https:\/\/statorials.org\/pl\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Jak obliczy\u0107 auc (pole pod krzyw\u0105) w r\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/statorials.org\/pl\/#website\",\"url\":\"https:\/\/statorials.org\/pl\/\",\"name\":\"Statorials\",\"description\":\"Tw\u00f3j przewodnik po kompetencjach statystycznych!\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/statorials.org\/pl\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"pl-PL\"},{\"@type\":\"Person\",\"@id\":\"https:\/\/statorials.org\/pl\/#\/schema\/person\/6484727a4612df3e69f016c3129c6965\",\"name\":\"Benjamin Anderson\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"pl-PL\",\"@id\":\"https:\/\/statorials.org\/pl\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/statorials.org\/pl\/wp-content\/uploads\/2023\/11\/Benjamin-Anderson-96x96.jpg\",\"contentUrl\":\"https:\/\/statorials.org\/pl\/wp-content\/uploads\/2023\/11\/Benjamin-Anderson-96x96.jpg\",\"caption\":\"Benjamin Anderson\"},\"description\":\"Cze\u015b\u0107, jestem Benjamin i jestem emerytowanym profesorem statystyki, kt\u00f3ry zosta\u0142 oddanym nauczycielem Statorials. Dzi\u0119ki bogatemu do\u015bwiadczeniu i wiedzy specjalistycznej w dziedzinie statystyki ch\u0119tnie dziel\u0119 si\u0119 swoj\u0105 wiedz\u0105, aby wzmocni\u0107 pozycj\u0119 uczni\u00f3w za po\u015brednictwem Statorials. Wiedzie\u0107 wi\u0119cej\",\"sameAs\":[\"https:\/\/statorials.org\/pl\"]}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology","description":"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/statorials.org\/pl\/nie-w-r\/","og_locale":"pl_PL","og_type":"article","og_title":"Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology","og_description":"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.","og_url":"https:\/\/statorials.org\/pl\/nie-w-r\/","og_site_name":"Statorials","article_published_time":"2023-07-25T18:29:30+00:00","author":"Benjamin Anderson","twitter_card":"summary_large_image","twitter_misc":{"Napisane przez":"Benjamin Anderson","Szacowany czas czytania":"2 minuty"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/statorials.org\/pl\/nie-w-r\/","url":"https:\/\/statorials.org\/pl\/nie-w-r\/","name":"Jak obliczy\u0107 AUC (pole pod krzyw\u0105) w R - Statology","isPartOf":{"@id":"https:\/\/statorials.org\/pl\/#website"},"datePublished":"2023-07-25T18:29:30+00:00","dateModified":"2023-07-25T18:29:30+00:00","author":{"@id":"https:\/\/statorials.org\/pl\/#\/schema\/person\/6484727a4612df3e69f016c3129c6965"},"description":"W tym samouczku wyja\u015bniono, jak obliczy\u0107 AUC (powierzchni\u0119 pod krzyw\u0105) w j\u0119zyku R, \u0142\u0105cznie z przyk\u0142adem krok po kroku.","breadcrumb":{"@id":"https:\/\/statorials.org\/pl\/nie-w-r\/#breadcrumb"},"inLanguage":"pl-PL","potentialAction":[{"@type":"ReadAction","target":["https:\/\/statorials.org\/pl\/nie-w-r\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/statorials.org\/pl\/nie-w-r\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Dom","item":"https:\/\/statorials.org\/pl\/"},{"@type":"ListItem","position":2,"name":"Jak obliczy\u0107 auc (pole pod krzyw\u0105) w r"}]},{"@type":"WebSite","@id":"https:\/\/statorials.org\/pl\/#website","url":"https:\/\/statorials.org\/pl\/","name":"Statorials","description":"Tw\u00f3j przewodnik po kompetencjach statystycznych!","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/statorials.org\/pl\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"pl-PL"},{"@type":"Person","@id":"https:\/\/statorials.org\/pl\/#\/schema\/person\/6484727a4612df3e69f016c3129c6965","name":"Benjamin Anderson","image":{"@type":"ImageObject","inLanguage":"pl-PL","@id":"https:\/\/statorials.org\/pl\/#\/schema\/person\/image\/","url":"https:\/\/statorials.org\/pl\/wp-content\/uploads\/2023\/11\/Benjamin-Anderson-96x96.jpg","contentUrl":"https:\/\/statorials.org\/pl\/wp-content\/uploads\/2023\/11\/Benjamin-Anderson-96x96.jpg","caption":"Benjamin Anderson"},"description":"Cze\u015b\u0107, jestem Benjamin i jestem emerytowanym profesorem statystyki, kt\u00f3ry zosta\u0142 oddanym nauczycielem Statorials. Dzi\u0119ki bogatemu do\u015bwiadczeniu i wiedzy specjalistycznej w dziedzinie statystyki ch\u0119tnie dziel\u0119 si\u0119 swoj\u0105 wiedz\u0105, aby wzmocni\u0107 pozycj\u0119 uczni\u00f3w za po\u015brednictwem Statorials. Wiedzie\u0107 wi\u0119cej","sameAs":["https:\/\/statorials.org\/pl"]}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/posts\/1584","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/comments?post=1584"}],"version-history":[{"count":0,"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/posts\/1584\/revisions"}],"wp:attachment":[{"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/media?parent=1584"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/categories?post=1584"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/statorials.org\/pl\/wp-json\/wp\/v2\/tags?post=1584"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}